You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
1.4 KiB
85 lines
1.4 KiB
--- t/basic.t
|
|
+++ t/basic.t
|
|
@@ -1,6 +1,6 @@
|
|
use strict;
|
|
use Data::Section::Simple qw(get_data_section);
|
|
-use Test::More;
|
|
+use Test::More tests => 3;
|
|
|
|
my $x = get_data_section();
|
|
is_deeply [ sort keys %$x ], [ qw(bar.tt foo.html) ];
|
|
@@ -19,8 +19,6 @@ bar
|
|
|
|
TT
|
|
|
|
-done_testing;
|
|
-
|
|
__DATA__
|
|
|
|
@@ foo.html
|
|
--- t/data.t
|
|
+++ t/data.t
|
|
@@ -1,6 +1,6 @@
|
|
use lib "t";
|
|
use DataInCode;
|
|
-use Test::More;
|
|
+use Test::More tests => 1;
|
|
use Data::Section::Simple;
|
|
|
|
my $d = Data::Section::Simple->new('DataInCode');
|
|
@@ -8,7 +8,3 @@ my $x = $d->get_data_section;
|
|
|
|
is $x->{foo}, "bar\n\n";
|
|
|
|
-done_testing;
|
|
-
|
|
-
|
|
-
|
|
--- t/multi-processes.t
|
|
+++ t/multi-processes.t
|
|
@@ -1,6 +1,6 @@
|
|
use strict;
|
|
use Data::Section::Simple qw(get_data_section);
|
|
-use Test::More;
|
|
+use Test::More tests => 1;
|
|
|
|
my $expect =<<HTML;
|
|
<html>
|
|
@@ -22,8 +22,6 @@ while (waitpid(-1,0) > 0) {
|
|
|
|
ok(!$failed);
|
|
|
|
-done_testing;
|
|
-
|
|
__DATA__
|
|
|
|
@@ foo.html
|
|
--- t/no-datat.t
|
|
+++ t/no-datat.t
|
|
@@ -1,7 +1,5 @@
|
|
use strict;
|
|
use Data::Section::Simple qw(get_data_section);
|
|
-use Test::More;
|
|
+use Test::More tests => 1;
|
|
|
|
is get_data_section('foo.html'), undef, 'Do not die.';
|
|
-
|
|
-done_testing;
|
|
--- t/pkg_oo.t
|
|
+++ t/pkg_oo.t
|
|
@@ -4,7 +4,7 @@ use Data::Section::Simple;
|
|
use lib "t";
|
|
use Foo;
|
|
|
|
-use Test::More;
|
|
+use Test::More tests => 3;
|
|
|
|
my $d = Data::Section::Simple->new('Foo');
|
|
my $x = $d->get_data_section();
|
|
@@ -24,5 +24,3 @@ bar
|
|
|
|
TT
|
|
|
|
-done_testing;
|
|
-
|