Commit | Line | Data |
---|---|---|
8d063cd8 LW |
1 | #!./perl |
2 | ||
8d063cd8 LW |
3 | print "1..2\n"; |
4 | ||
5 | # first test to see if we can run the tests. | |
6 | ||
7 | $_ = 'test'; | |
8a283e09 VP |
8 | if (/^test/) { print "ok 1 - match regex\n"; } else { print "not ok 1 - match regex\n";} |
9 | if (/^foo/) { print "not ok 2 - match regex\n"; } else { print "ok 2 - match regex\n";} |