Mailing List Archive

r3757 - trunk/perl/t
Author: creamyg
Date: 2008-08-24 17:34:08 -0700 (Sun, 24 Aug 2008)
New Revision: 3757

Modified:
trunk/perl/t/216-schema.t
Log:
Skip leaky test under valgrind.


Modified: trunk/perl/t/216-schema.t
===================================================================
--- trunk/perl/t/216-schema.t 2008-08-24 23:58:22 UTC (rev 3756)
+++ trunk/perl/t/216-schema.t 2008-08-25 00:34:08 UTC (rev 3757)
@@ -22,12 +22,12 @@

my $schema;

-eval { $schema = NoFieldsSchema->new };
-like( $@, qr/fields/i, "Failing to define \%fields errors out" );
-
SKIP: {
- skip( "constructor bailouts cause leaks", 3 ) if $ENV{KINO_VALGRIND};
+ skip( "constructor bailouts cause leaks", 4 ) if $ENV{KINO_VALGRIND};

+ eval { $schema = NoFieldsSchema->new };
+ like( $@, qr/fields/i, "Failing to define \%fields errors out" );
+
eval { $schema = NoAnalyzerSchema->new };
like( $@, qr/abstract/i, "Failing to define analyzer errors out" );



_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits