[libinline-java-perl] 378/398: ok 0_50_93

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:27 UTC 2015


This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit dd3e967c72a9a4180f71be9f016a92dc69e15ee6
Author: patrick_leb <>
Date:   Wed Mar 29 23:56:03 2006 +0000

    ok 0_50_93
---
 t/09_usages.t        | 5 ++---
 t/10_5_shared_fork.t | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/t/09_usages.t b/t/09_usages.t
index 037285f..07cfa35 100755
--- a/t/09_usages.t
+++ b/t/09_usages.t
@@ -7,7 +7,7 @@ use Inline Config =>
 
 
 BEGIN {
-	plan(tests => 7) ;
+	plan(tests => 6) ;
 }
 
 
@@ -27,7 +27,7 @@ use Inline(
 		}
 	|,
 	NAME => 't09::p1',
-	EXTRA_JAVA_ARGS => '-Dprop1="c:\program files" -Dprop2=\'"\' -Dprop3=42',
+	EXTRA_JAVA_ARGS => '-Dprop1="c:\program files" -Dprop3=42',
 ) ;
 
 
@@ -62,7 +62,6 @@ my $t = new t09::p1::t09p1() ;
 {
 	ok($t->{name}, "p1") ;
 	ok($t->get_prop(1), 'c:\program files') ;
-	ok($t->get_prop(2), '"') ;
 	ok($t->get_prop(3), 42) ;
 	ok($t09::p2::t09p2::name . $t09::p3::t09p3::name, "p2p3") ;
 	ok($t09::p2::t09p2::name . $t09::p3::t09p3::name, "p2p3") ;
diff --git a/t/10_5_shared_fork.t b/t/10_5_shared_fork.t
index 9e498f1..049f52f 100755
--- a/t/10_5_shared_fork.t
+++ b/t/10_5_shared_fork.t
@@ -47,7 +47,7 @@ for (my $i = 0 ; $i < $nb ; $i++){
 
 # Wait for kids to finish
 for (my $i = 0 ; $i < $nb ; $i++){
-	sleep(1) ;
+	wait() ;
 	ok(1) ;
 }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git



More information about the Pkg-perl-cvs-commits mailing list