Commit | Line | Data |
2f3c5f77 |
1 | #!./perl -w |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | require './test.pl'; |
7 | } |
8 | use strict; |
9 | |
10 | # Currently only testing the reset of patterns. |
11 | plan tests => 20; |
12 | |
13 | package aiieee; |
14 | |
15 | sub zlopp { |
16 | (shift =~ ?zlopp?) ? 1 : 0; |
17 | } |
18 | |
19 | sub reset_zlopp { |
20 | reset; |
21 | } |
22 | |
23 | package CLINK; |
24 | |
25 | sub ZZIP { |
26 | shift =~ ?ZZIP? ? 1 : 0; |
27 | } |
28 | |
29 | sub reset_ZZIP { |
30 | reset; |
31 | } |
32 | |
33 | package main; |
34 | |
35 | is(aiieee::zlopp(""), 0, "mismatch doesn't match"); |
36 | is(aiieee::zlopp("zlopp"), 1, "match matches first time"); |
37 | is(aiieee::zlopp(""), 0, "mismatch doesn't match"); |
38 | is(aiieee::zlopp("zlopp"), 0, "match doesn't match second time"); |
39 | aiieee::reset_zlopp(); |
40 | is(aiieee::zlopp("zlopp"), 1, "match matches after reset"); |
41 | is(aiieee::zlopp(""), 0, "mismatch doesn't match"); |
42 | |
43 | aiieee::reset_zlopp(); |
44 | |
45 | is(aiieee::zlopp(""), 0, "mismatch doesn't match"); |
46 | is(aiieee::zlopp("zlopp"), 1, "match matches first time"); |
47 | is(CLINK::ZZIP(""), 0, "mismatch doesn't match"); |
48 | is(CLINK::ZZIP("ZZIP"), 1, "match matches first time"); |
49 | is(CLINK::ZZIP(""), 0, "mismatch doesn't match"); |
50 | is(CLINK::ZZIP("ZZIP"), 0, "match doesn't match second time"); |
51 | is(aiieee::zlopp(""), 0, "mismatch doesn't match"); |
52 | is(aiieee::zlopp("zlopp"), 0, "match doesn't match second time"); |
53 | |
54 | aiieee::reset_zlopp(); |
55 | is(aiieee::zlopp("zlopp"), 1, "match matches after reset"); |
56 | is(aiieee::zlopp(""), 0, "mismatch doesn't match"); |
57 | |
58 | is(CLINK::ZZIP(""), 0, "mismatch doesn't match"); |
59 | is(CLINK::ZZIP("ZZIP"), 0, "match doesn't match third time"); |
60 | |
61 | CLINK::reset_ZZIP(); |
62 | is(CLINK::ZZIP("ZZIP"), 1, "match matches after reset"); |
63 | is(CLINK::ZZIP(""), 0, "mismatch doesn't match"); |