home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacPerl 4.1.3 / t / op / undef.t < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.3 KB  |  27 lines  |  [TEXT/MPS ]
  1. #!./perl
  2.  
  3. # $Header: undef.t,v 4.0 91/03/20 01:55:16 lwall Locked $
  4.  
  5. print "1..21\n";
  6.  
  7. print defined($a) ? "not ok 1\n" : "ok 1\n";
  8.  
  9. $a = 1+1;
  10. print defined($a) ? "ok 2\n" : "not ok 2\n";
  11.  
  12. undef $a;
  13. print defined($a) ? "not ok 3\n" : "ok 3\n";
  14.  
  15. $a = "hi";
  16. print defined($a) ? "ok 4\n" : "not ok 4\n";
  17.  
  18. $a = $b;
  19. print defined($a) ? "not ok 5\n" : "ok 5\n";
  20.  
  21. @ary = ("1arg");
  22. $a = pop(@ary);
  23. print defined($a) ? "ok 6\n" : "not ok 6\n";
  24. $a = pop(@ary);
  25. print defined($a) ? "not ok 7\n" : "ok 7\n";
  26.  
  27. @ary = ("1arg")