| Subject: | t/10_2_shared_start freezes on Ubuntu Hardy |
On my Ubuntu Hardy system, t/10_2_shared_start freezes after test 1/3. I
added a few diag's and attached the new file. Output of make test is as
follows:
# make test
make[1]: Entering directory `/root/.cpan/build/Inline-Java-0.52-cOjYnQ/Java'
make[2]: Entering directory
`/root/.cpan/build/Inline-Java-0.52-cOjYnQ/Java/PerlNatives'
make[2]: Leaving directory
`/root/.cpan/build/Inline-Java-0.52-cOjYnQ/Java/PerlNatives'
make[2]: Entering directory
`/root/.cpan/build/Inline-Java-0.52-cOjYnQ/Java/PerlInterpreter'
make[2]: Leaving directory
`/root/.cpan/build/Inline-Java-0.52-cOjYnQ/Java/PerlInterpreter'
make[1]: Leaving directory `/root/.cpan/build/Inline-Java-0.52-cOjYnQ/Java'
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01_init..............
Perl version is 5.008008
Inline version is 0.44
Inline::Java version is 0.52
J2SDK version is 1.4.2_18, from /usr/java/j2sdk1.4.2_18/
CLASSPATH is <empty>
t/01_init..............ok
t/02_primitives........ok
t/02_primitives_1_4....ok
t/03_objects...........ok
t/04_members...........ok
t/05_arrays............ok
t/06_static............ok
t/07_polymorph.........ok
t/08_study.............ok
t/09_usages............ok
t/10_1_shared_alone....ok
t/10_2_shared_start....# 1
# 2
# 3
# 2 ok's
t/10_2_shared_start....1/3 # (done)
# 4
# 5
| Subject: | 10_2_shared_start.t |
package t10 ;
use strict ;
use Test ;
BEGIN {
# Leave previous server enough time to die...
sleep(1) ;
require Inline::Java::Portable ;
if ($ENV{PERL_INLINE_JAVA_JNI}){
plan(tests => 0) ;
exit ;
}
elsif (! Inline::Java::Portable::portable("DETACH_OK")){
plan(tests => 0) ;
exit ;
}
else{
plan(tests => 3) ;
}
}
warn "# 1\n";
use Inline Config =>
DIRECTORY => './_Inline_test' ;
warn "# 2\n";
use Inline (
Java => 't/shared.java',
SHARED_JVM => 1,
PORT => 17891,
NAME => 't10',
) ;
warn "# 3\n";
my $t = new t10::t10() ;
{
warn "# 2 ok's\n";
ok($t->{i}++, 5);
ok(! Inline::Java::i_am_JVM_owner());
warn "# (done)\n";
}
warn "# 4\n";
ok($t->__get_private()->{proto}->ObjectCount(), 1) ;
warn "# 5\n";