summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-07-08 23:17:20 -0500
committerJesse Luehrs <doy@tozt.net>2011-07-08 23:18:08 -0500
commit64d9de92677b6ea344ab1c1e09fd71428120ef1d (patch)
tree3f961d336fa92c5e4c97c8c20781fad59cafe5d8 /t
parent6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0 (diff)
downloadsmartmatch-engine-rjbs-64d9de92677b6ea344ab1c1e09fd71428120ef1d.tar.gz
smartmatch-engine-rjbs-64d9de92677b6ea344ab1c1e09fd71428120ef1d.zip
split this into its own distHEADmaster
Diffstat (limited to 't')
-rw-r--r--t/basic.t20
-rw-r--r--t/lexical.t69
-rw-r--r--t/lib/lexical.pl8
3 files changed, 0 insertions, 97 deletions
diff --git a/t/basic.t b/t/basic.t
deleted file mode 100644
index 421623a..0000000
--- a/t/basic.t
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-
-ok(1 ~~ 1);
-{
- use smartmatch sub { 0 };
- ok(!(1 ~~ 1));
- ok(!(1 ~~ 2));
-}
-ok(1 ~~ 1);
-
-{
- use smartmatch 'rjbs';
- ok([] ~~ qr/ARRAY/);
- ok(!(1 ~~ sub { 0 }));
-}
-
-done_testing;
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;
diff --git a/t/lib/lexical.pl b/t/lib/lexical.pl
deleted file mode 100644
index d004c3f..0000000
--- a/t/lib/lexical.pl
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-Test::More::ok(1 ~~ 1);
-Test::More::ok(!(1 ~~ 0));
-
-1;