[svn:parrot] r44485 - branches/rm_cflags/t/steps/auto

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Fri Feb 26 00:13:19 UTC 2010


Author: jkeenan
Date: Fri Feb 26 00:13:18 2010
New Revision: 44485
URL: https://trac.parrot.org/parrot/changeset/44485

Log:
Delete tests which pertained to internal methods deleted within past two days.

Modified:
   branches/rm_cflags/t/steps/auto/warnings-01.t

Modified: branches/rm_cflags/t/steps/auto/warnings-01.t
==============================================================================
--- branches/rm_cflags/t/steps/auto/warnings-01.t	Fri Feb 26 00:08:16 2010	(r44484)
+++ branches/rm_cflags/t/steps/auto/warnings-01.t	Fri Feb 26 00:13:18 2010	(r44485)
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  26;
+use Test::More qw(no_plan); # tests =>  26;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::auto::warnings');
@@ -40,29 +40,29 @@
 
 my $step = test_step_constructor_and_description($conf);
 
-$step = test_step_constructor_and_description($conf);
-my $warning = q{-Wphony_warning};
-auto::warnings::_set_warning($conf, $warning, 1, undef);
-ok(! $conf->data->get($warning),
-    "Got expected setting for warning");
-
-$conf->replenish($serialized);
-
-$conf->options->set( %{$args} );
-$step = test_step_constructor_and_description($conf);
-{
-    my $warning = q{-Wphony_warning};
-    my $stdout;
-    capture(
-        sub { auto::warnings::_set_warning($conf, $warning, 1, 1); },
-        \$stdout,
-    );
-    ok(! $conf->data->get($warning),
-        "Got expected setting for warning");
-    like($stdout, qr/exit code:\s+1/, "Got expected verbose output");
-}
+#$step = test_step_constructor_and_description($conf);
+#my $warning = q{-Wphony_warning};
+#auto::warnings::_set_warning($conf, $warning, 1, undef);
+#ok(! $conf->data->get($warning),
+#    "Got expected setting for warning");
+#
+#$conf->replenish($serialized);
+#
+#$conf->options->set( %{$args} );
+#$step = test_step_constructor_and_description($conf);
+#{
+#    my $warning = q{-Wphony_warning};
+#    my $stdout;
+#    capture(
+#        sub { auto::warnings::_set_warning($conf, $warning, 1, 1); },
+#        \$stdout,
+#    );
+#    ok(! $conf->data->get($warning),
+#        "Got expected setting for warning");
+#    like($stdout, qr/exit code:\s+1/, "Got expected verbose output");
+#}
 
-$conf->replenish($serialized);
+#$conf->replenish($serialized);
 
 $conf->options->set( %{$args} );
 $step = test_step_constructor_and_description($conf);
@@ -75,41 +75,41 @@
 
 my ($output, $warnings, $verbose);
 
-$output = 'some output';
-$warnings = '-Wsome_warning';
-$verbose = undef;
-$conf->data->set( ccwarn => undef );
-ok( auto::warnings::_set_ccwarn($conf, $output, $warnings, $verbose),
-    "_set_ccwarn returned true as expected" );
-is( $conf->data->get( 'ccwarn' ), $warnings,
-    "Warnings set as expected" );
-
-{
-    $output = 'some output';
-    $warnings = '-Wsome_warning';
-    $verbose = 1;
-    $conf->data->set( ccwarn => undef );
-    my ($stdout, $stderr, $rv);
-    capture(
-        sub { $rv = auto::warnings::_set_ccwarn(
-                $conf, $output, $warnings, $verbose); },
-        \$stdout,
-        \$stderr,
-    );
-    ok( $rv, "_set_ccwarn returned true as expected" );
-    like($stdout, qr/output:\s+$output/s,
-        "Got expected verbose output from _set_ccwarn()" );
-    like($stdout, qr/ccwarn:\s+$warnings/s,
-        "Got expected verbose output from _set_ccwarn()" );
-}
-
-$output = 'error';
-$warnings = '-Wsome_warning';
-$verbose = undef;
-$conf->data->set( ccwarn => undef );
-ok( ! auto::warnings::_set_ccwarn($conf, $output, $warnings, $verbose),
-    "_set_ccwarn returned false as expected" );
-ok( ! defined $conf->data->get( 'ccwarn' ), "Warnings set as expected" );
+#$output = 'some output';
+#$warnings = '-Wsome_warning';
+#$verbose = undef;
+#$conf->data->set( ccwarn => undef );
+#ok( auto::warnings::_set_ccwarn($conf, $output, $warnings, $verbose),
+#    "_set_ccwarn returned true as expected" );
+#is( $conf->data->get( 'ccwarn' ), $warnings,
+#    "Warnings set as expected" );
+#
+#{
+#    $output = 'some output';
+#    $warnings = '-Wsome_warning';
+#    $verbose = 1;
+#    $conf->data->set( ccwarn => undef );
+#    my ($stdout, $stderr, $rv);
+#    capture(
+#        sub { $rv = auto::warnings::_set_ccwarn(
+#                $conf, $output, $warnings, $verbose); },
+#        \$stdout,
+#        \$stderr,
+#    );
+#    ok( $rv, "_set_ccwarn returned true as expected" );
+#    like($stdout, qr/output:\s+$output/s,
+#        "Got expected verbose output from _set_ccwarn()" );
+#    like($stdout, qr/ccwarn:\s+$warnings/s,
+#        "Got expected verbose output from _set_ccwarn()" );
+#}
+#
+#$output = 'error';
+#$warnings = '-Wsome_warning';
+#$verbose = undef;
+#$conf->data->set( ccwarn => undef );
+#ok( ! auto::warnings::_set_ccwarn($conf, $output, $warnings, $verbose),
+#    "_set_ccwarn returned false as expected" );
+#ok( ! defined $conf->data->get( 'ccwarn' ), "Warnings set as expected" );
 
 } # End SKIP block for Sun/Solaris
 


More information about the parrot-commits mailing list