t/op/reset.t

   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");