From be25f60935927114e0ef411fb4fbc04fea5ce8fa Mon Sep 17 00:00:00 2001
From: chromatic <chromatic@wgz.org>
Date: Sat, 10 May 2008 05:52:11 -0700
Subject: Add ..., !!!, and ??? operators Message-Id:
 <200805101252.11961.chromatic@wgz.org>

p4raw-id: //depot/perl@33858
---
 t/op/yadayada.t | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 t/op/yadayada.t

(limited to 't')

diff --git a/t/op/yadayada.t b/t/op/yadayada.t
new file mode 100644
index 0000000000..9f9e903730
--- /dev/null
+++ b/t/op/yadayada.t
@@ -0,0 +1,45 @@
+#!./perl
+
+print "1..5\n";
+
+$err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n";
+
+eval { ... };
+
+print "not " unless $@ eq $err;
+print "ok 1\n";
+print "# expected: '$err'\n# received: '$@'\n" unless $@ eq $err;
+
+$err = "foo at $0 line " . ( __LINE__ + 2 ) . ".\n";
+
+eval { !!! "foo" };
+
+print "not " unless $@ eq $err;
+print "ok 2\n";
+print "# expected: '$err'\n# received: '$@'\n" unless $@ eq $err;
+
+$err = "Died at $0 line " . ( __LINE__ + 2 ) . ".\n";
+
+eval { !!! };
+
+print "not " unless $@ eq $err;
+print "ok 3\n";
+print "# expected: '$err'\n# received: '$@'\n" unless $@ eq $err;
+
+local $SIG{__WARN__} = sub { $warning = shift };
+
+$err = "bar at $0 line " . ( __LINE__ + 2 ) . ".\n";
+
+eval { ??? "bar" };
+
+print "not " unless $warning eq $err;
+print "ok 4\n";
+print "# expected: '$warning'\n# received: '$warningn" unless $warning eq $err;
+
+$err = "Warning: something's wrong at $0 line " . ( __LINE__ + 2 ) . ".\n";
+
+eval { ??? };
+
+print "not " unless $warning eq $err;
+print "ok 5\n";
+print "# expected: '$warning'\n# received: '$warningn" unless $warning eq $err;
-- 
cgit v1.2.1