[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