From 64d9de92677b6ea344ab1c1e09fd71428120ef1d Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 8 Jul 2011 23:17:20 -0500 Subject: split this into its own dist --- t/basic.t | 20 ---------------- t/lexical.t | 69 -------------------------------------------------------- t/lib/lexical.pl | 8 ------- 3 files changed, 97 deletions(-) delete mode 100644 t/basic.t delete mode 100644 t/lexical.t delete mode 100644 t/lib/lexical.pl (limited to 't') 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; -- cgit v1.2.3