home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / ntcode / ntperlb / t / cmd / while.nt < prev   
Encoding:
Text File  |  1995-05-19  |  2.3 KB  |  113 lines
  1. #!./perl
  2.  
  3. # $Header: while.t,v 4.0 91/03/20 01:49:51 lwall Locked $
  4.  
  5. print "1..10\n";
  6.  
  7. open (tmp,'>Cmd.tmp') || die "Can't create Cmd.tmp.";
  8. print tmp "tvi925\n";
  9. print tmp "tvi920\n";
  10. print tmp "vt100\n";
  11. print tmp "Amiga\n";
  12. print tmp "paper\n";
  13. close tmp;
  14.  
  15. # test "last" command
  16.  
  17. open(fh,'Cmd.tmp') || die "Can't open Cmd.tmp.";
  18. while (<fh>) {
  19.     last if /vt100/;
  20. }
  21. if (!eof && /vt100/) {print "ok 1\n";} else {print "not ok 1 $_\n";}
  22.  
  23. # test "next" command
  24.  
  25. $bad = '';
  26. open(fh,'Cmd.tmp') || die "Can't open Cmd.tmp.";
  27. while (<fh>) {
  28.     next if /vt100/;
  29.     $bad = 1 if /vt100/;
  30. }
  31. if (!eof || /vt100/ || $bad) {print "not ok 2\n";} else {print "ok 2\n";}
  32.  
  33. # test "redo" command
  34.  
  35. $bad = '';
  36. open(fh,'Cmd.tmp') || die "Can't open Cmd.tmp.";
  37. while (<fh>) {
  38.     if (s/vt100/VT100/g) {
  39.     s/VT100/Vt100/g;
  40.     redo;
  41.     }
  42.     $bad = 1 if /vt100/;
  43.     $bad = 1 if /VT100/;
  44. }
  45. if (!eof || $bad) {print "not ok 3\n";} else {print "ok 3\n";}
  46.  
  47. # now do the same with a label and a continue block
  48.  
  49. # test "last" command
  50.  
  51. $badcont = '';
  52. open(fh,'Cmd.tmp') || die "Can't open Cmd.tmp.";
  53. line: while (<fh>) {
  54.     if (/vt100/) {last line;}
  55. } continue {
  56.     $badcont = 1 if /vt100/;
  57. }
  58. if (!eof && /vt100/) {print "ok 4\n";} else {print "not ok 4\n";}
  59. if (!$badcont) {print "ok 5\n";} else {print "not ok 5\n";}
  60.  
  61. # test "next" command
  62.  
  63. $bad = '';
  64. $badcont = 1;
  65. open(fh,'Cmd.tmp') || die "Can't open Cmd.tmp.";
  66. entry: while (<fh>) {
  67.     next entry if /vt100/;
  68.     $bad = 1 if /vt100/;
  69. } continue {
  70.     $badcont = '' if /vt100/;
  71. }
  72. if (!eof || /vt100/ || $bad) {print "not ok 6\n";} else {print "ok 6\n";}
  73. if (!$badcont) {print "ok 7\n";} else {print "not ok 7\n";}
  74.  
  75. # test "redo" command
  76.  
  77. $bad = '';
  78. $badcont = '';
  79. open(fh,'Cmd.tmp') || die "Can't open Cmd.tmp.";
  80. loop: while (<fh>) {
  81.     if (s/vt100/VT100/g) {
  82.     s/VT100/Vt100/g;
  83.     redo loop;
  84.     }
  85.     $bad = 1 if /vt100/;
  86.     $bad = 1 if /VT100/;
  87. } continue {
  88.     $badcont = 1 if /vt100/;
  89. }
  90. if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  91. if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  92.  
  93. close fh;
  94.  
  95. `del/f/q Cmd.tmp`;
  96.  
  97. #$x = 0;
  98. #while (1) {
  99. #    if ($x > 1) {last;}
  100. #    next;
  101. #} continue {
  102. #    if ($x++ > 10) {last;}
  103. #    next;
  104. #}
  105. #
  106. #if ($x < 10) {print "ok 10\n";} else {print "not ok 10\n";}
  107.  
  108. $i = 9;
  109. {
  110.     $i++;
  111. }
  112. print "ok $i\n";
  113.