| Mark Glines | 8811161 | 2002-04-22 02:24:28 +0000 | [diff] [blame] | 1 | #!/usr/bin/perl |
| 2 | use test::helper qw($_real $_point); | ||||
| 3 | use Test::More; | ||||
| 4 | plan tests => 1; | ||||
| 5 | chdir($_real); | ||||
| 6 | system("echo frog >file"); | ||||
| 7 | chdir($_point); | ||||
| 8 | ok(open(FILE,"file"),"open"); | ||||
| 9 | close(FILE); | ||||
| 10 | unlink("file"); | ||||