diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-08 23:17:20 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-08 23:18:08 -0500 |
commit | 64d9de92677b6ea344ab1c1e09fd71428120ef1d (patch) | |
tree | 3f961d336fa92c5e4c97c8c20781fad59cafe5d8 /t/lexical.t | |
parent | 6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0 (diff) | |
download | smartmatch-engine-rjbs-master.tar.gz smartmatch-engine-rjbs-master.zip |
Diffstat (limited to 't/lexical.t')
-rw-r--r-- | t/lexical.t | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/t/lexical.t b/t/lexical.t deleted file mode 100644 index 036fe8a..0000000 --- a/t/lexical.t +++ /dev/null @@ -1,69 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -{ - ok(1 ~~ 1); - ok(!(1 ~~ 0)); - { - ok(1 ~~ 1); - ok(!(1 ~~ 0)); - use smartmatch sub { 0 }; - ok(!(1 ~~ 1)); - ok(!(1 ~~ 0)); - { - ok(!(1 ~~ 1)); - ok(!(1 ~~ 0)); - use smartmatch sub { 1 }; - ok(1 ~~ 1); - ok(1 ~~ 0); - use smartmatch sub { 0 }; - ok(!(1 ~~ 1)); - ok(!(1 ~~ 0)); - use smartmatch sub { 1 }; - ok(1 ~~ 1); - ok(1 ~~ 0); - } - ok(!(1 ~~ 1)); - ok(!(1 ~~ 0)); - } - ok(1 ~~ 1); - ok(!(1 ~~ 0)); -} - -{ - ok(eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); - { - ok(eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); - use smartmatch sub { 0 }; - ok(!eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); - { - ok(!eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); - use smartmatch sub { 1 }; - ok(eval "1 ~~ 1"); - ok(eval "1 ~~ 0"); - use smartmatch sub { 0 }; - ok(!eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); - use smartmatch sub { 1 }; - ok(eval "1 ~~ 1"); - ok(eval "1 ~~ 0"); - } - ok(!eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); - } - ok(eval "1 ~~ 1"); - ok(!eval "1 ~~ 0"); -} - -{ - use smartmatch sub { 0 }; - require 't/lib/lexical.pl'; -} - -done_testing; |