You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2008/03/12 22:39:35 UTC
svn commit: r636519 - /xerces/c/trunk/swig/perl/t/SEnumVal.t
Author: jasons
Date: Wed Mar 12 14:39:33 2008
New Revision: 636519
URL: http://svn.apache.org/viewvc?rev=636519&view=rev
Log:
fixed newlines
Modified:
xerces/c/trunk/swig/perl/t/SEnumVal.t
Modified: xerces/c/trunk/swig/perl/t/SEnumVal.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SEnumVal.t?rev=636519&r1=636518&r2=636519&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/SEnumVal.t (original)
+++ xerces/c/trunk/swig/perl/t/SEnumVal.t Wed Mar 12 14:39:33 2008
@@ -5,7 +5,7 @@
######################### Begin module loading
# use blib;
-use Test::More tests => 12;
+use Test::More tests => 9;
BEGIN { use_ok(XML::Xerces::DOM) };
use Config;
@@ -23,12 +23,12 @@
XML::Xerces::XMLPlatformUtils::Initialize();
my $perl = $Config{startperl};
-$perl =~ s/^\#!//;
+$perl =~ s/^\#!//;
my $output;
-if ($^O eq 'MSWin32') {
- $output = `$perl $SAMPLE_DIR/SEnumVal.pl $PERSONAL_SCHEMA_FILE_NAME 2>NUL`;
-} else {
- $output = `$perl $SAMPLE_DIR/SEnumVal.pl $PERSONAL_SCHEMA_FILE_NAME 2>/dev/null`;
+if ($^O eq 'MSWin32') {
+ $output = `$perl $SAMPLE_DIR/SEnumVal.pl $PERSONAL_SCHEMA_FILE_NAME 2>NUL`;
+} else {
+ $output = `$perl $SAMPLE_DIR/SEnumVal.pl $PERSONAL_SCHEMA_FILE_NAME 2>/dev/null`;
}
my @lines = split("\n", $output);
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@xerces.apache.org
For additional commands, e-mail: commits-help@xerces.apache.org