[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