summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
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;