Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

bring in load tests

  • Loading branch information...
commit 95e97fc8d2204190222205da0b8312476c4f572b 1 parent 4c1981a
@book authored
Showing with 12 additions and 18 deletions.
  1. +12 −0 lib/Test/MetaSyntactic.pm
  2. +0 −8 t/01load.t
  3. +0 −10 t/51useall.t
View
12 lib/Test/MetaSyntactic.pm
@@ -27,6 +27,7 @@ sub theme_ok {
# all subtests
my $theme = $args[0];
+ $tb->subtest( "load $theme", sub { subtest_load(@args); } );
$tb->subtest( "format $theme", sub { subtest_format(@args); } );
$tb->subtest( "uniq $theme", sub { subtest_uniq(@args); } );
$tb->subtest( "length $theme", sub { subtest_length(@args); } );
@@ -78,6 +79,17 @@ sub _theme_sublists {
# individual subtest functions
#
+# t/01load.t
+# t/51useall.t
+sub subtest_load {
+ my ($theme) = @_;
+ my $tb = __PACKAGE__->builder;
+
+ $tb->plan( tests => 1 );
+ `$^X -Mblib -MAcme::MetaSyntactic::$theme -e1`;
+ $tb->is_num( $?, 0, $theme );
+}
+
# t/21format.t
sub subtest_format {
my ($theme) = @_;
View
8 t/01load.t
@@ -1,8 +0,0 @@
-use Test::More;
-use Acme::MetaSyntactic ();
-use strict;
-
-my @modules = map { "Acme::MetaSyntactic::$_" } Acme::MetaSyntactic->themes;
-
-plan tests => scalar @modules;
-use_ok( $_ ) for sort @modules;
View
10 t/51useall.t
@@ -1,10 +0,0 @@
-use Test::More;
-use Acme::MetaSyntactic;
-
-plan tests => scalar Acme::MetaSyntactic->themes;
-
-for( Acme::MetaSyntactic->themes ) {
- `$^X -Mblib -MAcme::MetaSyntactic::$_ -e1`;
- is( $?, 0, "$_" );
-}
-
Please sign in to comment.
Something went wrong with that request. Please try again.