t/op/yadayada.t

   1 #!./perl
   2
   3 print "1..5\n";
   4
   5 $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n";
   6
   7 eval { ... };
   8
   9 print "not " unless $@ eq $err;
  10 print "ok 1\n";
  11 print "# expected: '$err'\n# received: '$@'\n" unless $@ eq $err;
  12
  13 $err = "foo at $0 line " . ( __LINE__ + 2 ) . ".\n";
  14
  15 eval { !!! "foo" };
  16
  17 print "not " unless $@ eq $err;
  18 print "ok 2\n";
  19 print "# expected: '$err'\n# received: '$@'\n" unless $@ eq $err;
  20
  21 $err = "Died at $0 line " . ( __LINE__ + 2 ) . ".\n";
  22
  23 eval { !!! };
  24
  25 print "not " unless $@ eq $err;
  26 print "ok 3\n";
  27 print "# expected: '$err'\n# received: '$@'\n" unless $@ eq $err;
  28
  29 local $SIG{__WARN__} = sub { $warning = shift };
  30
  31 $err = "bar at $0 line " . ( __LINE__ + 2 ) . ".\n";
  32
  33 eval { ??? "bar" };
  34
  35 print "not " unless $warning eq $err;
  36 print "ok 4\n";
  37 print "# expected: '$warning'\n# received: '$warningn" unless $warning eq $err;
  38
  39 $err = "Warning: something's wrong at $0 line " . ( __LINE__ + 2 ) . ".\n";
  40
  41 eval { ??? };
  42
  43 print "not " unless $warning eq $err;
  44 print "ok 5\n";
  45 print "# expected: '$warning'\n# received: '$warningn" unless $warning eq $err;