Skip to content
  • 6 commits
  • 51 files changed
  • 0 commit comments
  • 1 contributor
Commits on May 01, 2012
Jeffrey Kegler Removing use_ok() 00c7251
Jeffrey Kegler Removing use_ok() e1643a8
Jeffrey Kegler Removing use_ok() b669094
Jeffrey Kegler Removing use_ok() 406753e
Jeffrey Kegler Removing use_ok() 6f5b0ca
Jeffrey Kegler Removing use_ok() aa7a580
View
4 r2/html/t/00-load.t
@@ -39,9 +39,9 @@ BEGIN {
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-Test::More::plan tests => 2;
+Test::More::plan tests => 1;
-Test::More::use_ok('Marpa::R2::HTML');
+use Marpa::R2::HTML;
Test::More::diag( 'Using Marpa::R2::HTML ', $Marpa::R2::HTML::VERSION );
View
4 r2/html/t/copy.t
@@ -38,9 +38,9 @@ BEGIN {
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-BEGIN { Test::More::plan tests => 2; }
+BEGIN { Test::More::plan tests => 1; }
-BEGIN { Test::More::use_ok('Marpa::R2::HTML'); }
+use Marpa::R2::HTML;
my $document;
{
View
6 r2/html/t/examples.t
@@ -34,11 +34,11 @@ BEGIN {
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-BEGIN { Test::More::plan tests => 4; }
+BEGIN { Test::More::plan tests => 2; }
-Test::More::use_ok('Marpa::R2::HTML');
+use Marpa::R2::HTML;
use lib 'tool/lib';
-Test::More::use_ok('Marpa::R2::Test');
+use Marpa::R2::Test;
# Non-synopsis example in HTML.pod
View
4 r2/html/t/fmt.t
@@ -36,10 +36,10 @@ BEGIN {
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-BEGIN { Test::More::plan tests => 5; }
+BEGIN { Test::More::plan tests => 4; }
use lib 'tool/lib';
-Test::More::use_ok('Marpa::R2::Test');
+use Marpa::R2::Test;
my @script_dir = qw( blib script );
my @data_dir = qw( html t fmt_t_data );
View
4 r2/html/t/parse.t
@@ -37,10 +37,10 @@ BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::Entities'); }
# These tests are based closely on those in the HTML-Tree module,
# the authors of which I gratefully acknowledge.
-Test::More::plan tests => 41;
+Test::More::plan tests => 40;
my $DEBUG = 2;
-Test::More::use_ok('Marpa::R2::HTML');
+use Marpa::R2::HTML;
my $html_args = {
':CRUFT' => sub {
View
6 r2/html/t/score.t
@@ -38,12 +38,12 @@ BEGIN {
# even though we do not use it
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-use Test::More tests => 6;
+use Test::More tests => 4;
use lib 'tool/lib';
use lib 'html/tool/lib';
-Test::More::use_ok('Marpa::R2::Test');
-Test::More::use_ok('Marpa::R2::HTML::Test::Util');
+use Marpa::R2::Test;
+use Marpa::R2::HTML::Test::Util;
my @script_dir = qw( blib script );
my @data_dir = qw( html t fmt_t_data );
View
4 r2/html/t/synopsis.t
@@ -35,9 +35,9 @@ BEGIN {
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-BEGIN { use Test::More tests => 10; }
+BEGIN { use Test::More tests => 9; }
-Test::More::use_ok('Marpa::R2::Test');
+use Marpa::R2::Test;
# This is just a dummy value for the synopsis
my %empty_elements = ();
View
6 r2/html/t/tang.t
@@ -37,10 +37,10 @@ BEGIN {
BEGIN { Marpa::R2::HTML::Test::Util::load_or_skip_all('HTML::PullParser'); }
-BEGIN { Test::More::plan tests => 3; }
+BEGIN { Test::More::plan tests => 1; }
-Test::More::use_ok('Marpa::R2::Test');
-Test::More::use_ok('Marpa::R2::HTML');
+use Marpa::R2::Test;
+use Marpa::R2::HTML;
use Carp;
use Data::Dumper;
View
6 r2/t/00-load.t
@@ -18,11 +18,9 @@ use 5.010;
use warnings;
use strict;
-use Test::More tests => 3;
+use Test::More tests => 2;
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
defined $INC{'Marpa/R2.pm'}
or Test::More::BAIL_OUT('Could not load Marpa::R2');
View
7 r2/t/ah2.t
@@ -22,13 +22,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 30;
+use Test::More tests => 29;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/ah_numeric.t
@@ -22,13 +22,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 10;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/bocage.t
@@ -24,13 +24,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 20;
+use Test::More tests => 19;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/chaf.t
@@ -20,13 +20,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 2;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/code_diag.t
@@ -19,15 +19,12 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 7;
use lib 'inc';
use Marpa::R2::Test;
use English qw( -no_match_vars );
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my @features = qw(
e_op_action default_action
View
7 r2/t/counter.t
@@ -22,14 +22,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 33;
+use Test::More tests => 32;
use English qw( -no_match_vars );
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
sub zero { return '0' }
sub one { return '1' }
View
6 r2/t/curly.t
@@ -39,10 +39,10 @@ BEGIN {
Test::More::plan skip_all => $PPI_problem;
}
else {
- Test::More::plan tests => 10;
+ Test::More::plan tests => 8;
}
- Test::More::use_ok('Marpa::R2');
- Test::More::use_ok('Marpa::R2::Perl');
+ use Marpa::R2;
+ use Marpa::R2::Perl;
} ## end BEGIN
use lib 'inc';
View
7 r2/t/debug.t
@@ -18,16 +18,13 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 3;
use English qw( -no_match_vars );
use Fatal qw( open close );
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my $progress_report = q{};
View
7 r2/t/debug_leo.t
@@ -18,16 +18,13 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 2;
use English qw( -no_match_vars );
use Fatal qw( open close );
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my $progress_report = q{};
View
7 r2/t/debug_seq.t
@@ -20,16 +20,13 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 3;
use English qw( -no_match_vars );
use Fatal qw( open close );
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my $progress_report = q{};
View
7 r2/t/duplicate_parse.t
@@ -20,14 +20,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 6;
+use Test::More tests => 5;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/equation.t
@@ -19,16 +19,13 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 13;
+use Test::More tests => 12;
use lib 'inc';
use Marpa::R2::Test;
use English qw( -no_match_vars );
use Fatal qw( close open );
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (InputOutput::RequireBriefOpen)
open my $original_stdout, q{>&STDOUT};
View
7 r2/t/final_nonnullable.t
@@ -21,14 +21,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 10;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/gabend.t
@@ -22,15 +22,12 @@ use 5.010;
use strict;
use warnings;
use English qw( -no_match_vars );
-use Test::More tests => 8;
+use Test::More tests => 7;
use Fatal qw(open close);
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/implementation.t
@@ -19,14 +19,11 @@ use strict;
use warnings;
use Fatal qw(open close);
-use Test::More tests => 9;
+use Test::More tests => 8;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my $grammar = Marpa::R2::Grammar->new(
{ start => 'Expression',
View
7 r2/t/infinite.t
@@ -21,13 +21,10 @@ use warnings;
use English qw( -no_match_vars );
use Fatal qw(open close chdir);
-use Test::More tests => 7;
+use Test::More tests => 6;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
sub default_action {
View
7 r2/t/infinite2.t
@@ -20,13 +20,10 @@ use strict;
use warnings;
use English qw( -no_match_vars );
use Fatal qw(open close chdir);
-use Test::More tests => 4;
+use Test::More tests => 3;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my %expected_original = map { ( $_ => 1 ) } qw( A(B(a)) a );
View
7 r2/t/infinite_plex.t
@@ -23,13 +23,10 @@ use warnings;
use English qw( -no_match_vars );
use Fatal qw(open close chdir);
-use Test::More tests => 5;
+use Test::More tests => 4;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
sub make_rule {
my ( $lhs_symbol_name, $rhs_symbol_name ) = @_;
View
7 r2/t/initial_nulls.t
@@ -19,14 +19,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 10;
+use Test::More tests => 9;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/jirotka.t
@@ -19,7 +19,7 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 9;
+use Test::More tests => 8;
use lib 'inc';
use Marpa::R2::Test;
@@ -27,10 +27,7 @@ use Marpa::R2::Test;
use Data::Dumper;
use English qw( -no_match_vars );
use Fatal qw( close open );
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
# Regression test for bug originally found and documented
# by Tomas Jirotka
View
7 r2/t/leo.t
@@ -22,14 +22,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 18;
+use Test::More tests => 17;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/leo2.t
@@ -19,14 +19,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 10;
+use Test::More tests => 9;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/leo3.t
@@ -21,14 +21,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 7;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/leo_cycle.t
@@ -24,14 +24,11 @@ use strict;
use warnings;
use English qw( -no_match_vars );
-use Test::More tests => 7;
+use Test::More tests => 6;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
sub main::default_action {
shift;
View
7 r2/t/leo_example.t
@@ -25,14 +25,11 @@ use warnings;
# so now these are simply Leo-oriented regression tests.
use Fatal qw(open close);
-use Test::More tests => 7;
+use Test::More tests => 6;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/limits.t
@@ -18,15 +18,12 @@ use 5.010;
use strict;
use warnings;
use English qw( -no_match_vars );
-use Test::More tests => 6;
+use Test::More tests => 5;
use Fatal qw(open close);
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/minus.t
@@ -19,14 +19,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 10;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
# The inefficiency (at least some of it) is deliberate.
# Passing up a duples of [ string, value ] and then
View
7 r2/t/null_example.t
@@ -19,16 +19,13 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 1;
use lib 'inc';
use Marpa::R2::Test;
use English qw( -no_match_vars );
use Fatal qw(open close);
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (InputOutput::RequireBriefOpen)
open my $original_stdout, q{>&STDOUT};
View
7 r2/t/null_infinite1.t
@@ -19,14 +19,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 3;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/null_infinite4.t
@@ -19,14 +19,11 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 1;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/null_value.t
@@ -18,13 +18,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 1;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
package Test;
View
7 r2/t/pascal.t
@@ -23,13 +23,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 7;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
sub ah_extended {
my $n = shift;
View
6 r2/t/perl.t
@@ -40,10 +40,10 @@ BEGIN {
Test::More::plan skip_all => $PPI_problem;
}
else {
- Test::More::plan tests => 14;
+ Test::More::plan tests => 12;
}
- Test::More::use_ok('Marpa::R2');
- Test::More::use_ok('Marpa::R2::Perl');
+ use Marpa::R2;
+ use Marpa::R2::Perl;
} ## end BEGIN
our @OUTPUT = ();
View
7 r2/t/rabend.t
@@ -18,16 +18,13 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 7;
+use Test::More tests => 6;
use English qw( -no_match_vars );
use Fatal qw( open close );
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
sub catch_problem {
my ( $test_name, $test, $expected_result, $expected_error ) = @_;
View
7 r2/t/randal.t
@@ -19,13 +19,10 @@ use strict;
use warnings;
use English qw( -no_match_vars );
-use Test::More tests => 5;
+use Test::More tests => 4;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
package Test_Grammar;
View
7 r2/t/rewrite.t
@@ -22,14 +22,11 @@ use strict;
use warnings;
use Fatal qw(open close);
-use Test::More tests => 3;
+use Test::More tests => 2;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my $chaf_rule =
#<<< no perltidy
View
7 r2/t/sequence.t
@@ -23,13 +23,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 71;
+use Test::More tests => 70;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/sequence2.t
@@ -21,14 +21,11 @@ use strict;
use warnings;
use Fatal qw(open close);
-use Test::More tests => 4;
+use Test::More tests => 3;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
sub sequence { shift; return 'seq(' . ( join q{;}, @_ ) . ')' }
View
7 r2/t/timeflies.t
@@ -39,13 +39,10 @@ use strict;
use warnings;
use English qw( -no_match_vars );
-use Test::More tests => 2;
+use Test::More tests => 1;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
## no critic (Subroutines::RequireArgUnpacking)
View
7 r2/t/trace_rules.t
@@ -22,13 +22,10 @@ use 5.010;
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 3;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
my $trace_output;
open my $trace_fh, q{>}, \$trace_output;
View
6 r2/t/use.t
@@ -39,12 +39,12 @@ BEGIN {
Test::More::plan skip_all => $PPI_problem;
}
else {
- Test::More::plan tests => 3;
+ Test::More::plan tests => 1;
}
- Test::More::use_ok('Marpa::R2');
- Test::More::use_ok('Marpa::R2::Perl');
} ## end BEGIN
+use Marpa::R2;
+use Marpa::R2::Perl;
use lib 'inc';
use Marpa::R2::Test;
View
7 r2/t/wall.t
@@ -27,13 +27,10 @@ use warnings;
# parse counts generated by this grammar and A052952 are identical
# is at perlmonks.org: http://perlmonks.org/?node_id=649892
-use Test::More tests => 13;
+use Test::More tests => 12;
use lib 'inc';
use Marpa::R2::Test;
-
-BEGIN {
- Test::More::use_ok('Marpa::R2');
-}
+use Marpa::R2;
# The inefficiency (at least some of it) is deliberate.
# Passing up a duples of [ string, value ] and then

No commit comments for this range

Something went wrong with that request. Please try again.