home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / ntcode / ntperlb / t / op / goto.nt < prev    next >
Encoding:
Text File  |  1995-05-19  |  618 b   |  35 lines
  1. #!./perl
  2.  
  3. # $RCSfile: goto.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:43:25 $
  4.  
  5. print "1..3\n";
  6.  
  7. while (0) {
  8.     $foo = 1;
  9.   label1:
  10.     $foo = 2;
  11.     goto label2;
  12. } continue {
  13.     $foo = 0;
  14.     goto label4;
  15.   label3:
  16.     $foo = 4;
  17.     goto label4;
  18. }
  19. goto label1;
  20.  
  21. $foo = 3;
  22.  
  23. label2:
  24. print "#1\t:$foo: == 2\n";
  25. if ($foo == 2) {print "ok 1\n";} else {print "not ok 1\n";}
  26. goto label3;
  27.  
  28. label4:
  29. print "#2\t:$foo: == 4\n";
  30. if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
  31.  
  32. $x = `perl -e 'goto foo;' 2>&1`;
  33. if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3 ($x)\n";}
  34.  
  35.