[libinline-java-perl] 357/398: ok

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:23 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 4651853180b0dd34cf4366eeae296466f1199347
Author: patrick_leb <>
Date:   Thu Sep 29 01:00:34 2005 +0000

    ok
---
 Java.pm       | 4 ++--
 t/01_init.t   | 4 ++++
 t/09_usages.t | 9 +++++----
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/Java.pm b/Java.pm
index 34c8274..6878424 100644
--- a/Java.pm
+++ b/Java.pm
@@ -8,7 +8,7 @@ package Inline::Java ;
 use strict ;
 require 5.006 ;
 
-$Inline::Java::VERSION = '0.50_90' ;
+$Inline::Java::VERSION = '0.50_91' ;
 
 
 # DEBUG is set via the DEBUG config
@@ -486,7 +486,7 @@ sub load {
 		my $pc = new Inline::Java::Protocol(undef, $o) ;
 		$pc->AddClassPath(Inline::Java::Portable::portable("SUB_FIX_JAVA_PATH", Inline::Java::Portable::get_user_jar())) ;
 
-		my $st = $pc->ServerType() ;
+		my ($st, $file_enc, $sock_encs) = $pc->ServerType() ;
 		if ((($st eq "shared")&&(! $o->get_java_config('SHARED_JVM')))||
 			(($st eq "private")&&($o->get_java_config('SHARED_JVM')))){
 			croak "JVM type mismatch on port " . $JVM->{port} ;
diff --git a/t/01_init.t b/t/01_init.t
index b0b042d..d96a376 100644
--- a/t/01_init.t
+++ b/t/01_init.t
@@ -18,11 +18,15 @@ my $ij = $types1::INLINE ;
 $ij = $types1::INLINE ; # Stupid warning...
 my $jdk = $ij->get_java_config("J2SDK") ;
 my $ver = types1->version() ;
+
+my $pc = new Inline::Java::Protocol(undef, $ij) ;
+my ($st, $file_enc, $sock_encs) = $pc->ServerType() ;
 print STDERR "\nPerl version is $]\n" ;
 print STDERR "Inline version is $Inline::VERSION\n" ;
 print STDERR "Inline::Java version is $Inline::Java::VERSION\n" ;
 
 print STDERR "J2SDK version is $ver, from $jdk\n" ;
+print STDERR "Java encodings are file: $file_enc, stream: $sock_encs\n" ;
 print STDERR "CLASSPATH is $main::cp\n" ;
 
 if ($ENV{PERL_INLINE_JAVA_EMBEDDED_JNI}){
diff --git a/t/09_usages.t b/t/09_usages.t
index 18cb6b8..037285f 100755
--- a/t/09_usages.t
+++ b/t/09_usages.t
@@ -7,7 +7,7 @@ use Inline Config =>
 
 
 BEGIN {
-	plan(tests => 6) ;
+	plan(tests => 7) ;
 }
 
 
@@ -27,7 +27,7 @@ use Inline(
 		}
 	|,
 	NAME => 't09::p1',
-	EXTRA_JAVA_ARGS => '-Dprop1="a:"  -Dprop2=b',
+	EXTRA_JAVA_ARGS => '-Dprop1="c:\program files" -Dprop2=\'"\' -Dprop3=42',
 ) ;
 
 
@@ -61,8 +61,9 @@ my $t = new t09::p1::t09p1() ;
 
 {
 	ok($t->{name}, "p1") ;
-	ok($t->get_prop(1), 'a:') ;
-	ok($t->get_prop(2), 'b') ;
+	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") ;
 }

-- 
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