####### Individual t/12_2 test as asked by Mr. LeBoutillier ####### WITH JNI active # export PERL_INLINE_JAVA_JNI=1 # export PERL_INLINE_JAVA_DEBUG=4 # perl -Mblib t/12_2_perl_natives.t Using /opt/Inline-Java-0.45/blib Note: PerlNatives is still experimental and errors here can safely be ignored if you don't plan on using this feature. However, the author would appreciate if errors encountered here were reported to the mailing list (inline@perl.org) along with your hardware/OS detail. Thank you. [perl][1] validate done. [perl][1] Starting load. [perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':' [perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar' [perl][2] classpath: /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar [perl][1] starting JVM... [perl][1] JNI mode [perl][2] classpath: [perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar' [perl][2] adding to classpath: '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar' [perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114 [java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114 [java][2] added file:/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar to classpath [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][3] getting server type [perl][3] packet sent is server_type [java][3] packet recv is server_type [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:112.114.105.118.97.116.101 [perl][3] packet recv is ok scalar:112.114.105.118.97.116.101 [perl][4] destroying Inline::Java::Protocol [perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':' [perl][2] classpath candidate '' scraped [perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54 for hpux is default '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54' [perl][2] adding to classpath: '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54' [perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52 [java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52 [java][2] added file:/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54/ to classpath [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][3] Inline::Java object id is 0 [perl][1] using jdat cache [perl][3] perl doesn't know about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] perl doesn't know about 't1212' ('main::t1212') [perl][2] creating object in java (main::t1212): [perl][1] load done. [perl][4] destroying Inline::Java::Protocol [perl][3] matching arguments to init() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(0).init() [perl][3] packet sent is call_method 0 t121 init () [java][3] packet recv is call_method 0 t121 init () [java][4] class t121 is reference [java][3] found a init method [java][3] () = ()? [java][3] has matching signature () [java][1] loading InlineJavaUserClassLink via InlineJavaUserClassLoader [java][2] loading shared library /opt/Inline-Java-0.45/blib/arch/auto/Inline/Java/Natives/Natives.sl [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: 1..5 [perl][3] matching arguments to init() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(0).init() [perl][3] packet sent is call_method 0 t121 init () [java][3] packet recv is call_method 0 t121 init () [java][4] class t121 is reference [java][3] method was cached [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][3] matching arguments to new() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] creating object new t121() [perl][3] packet sent is create_object t121 () [java][3] packet recv is create_object t121 () [java][4] class t121 is reference [java][3] found a t121 constructor [java][3] () = ()? [java][3] has matching signature () [java][3] registering natives for class t121 [java][3] registering native method array for class t121 [java][3] signature is ([I[Ljava/lang/String;)Ljava/lang/String; [java][3] format is LLL [java][3] registering native method types for class t121 [java][3] signature is (BSIJFDZCLjava/lang/String;)Ljava/lang/String; [java][3] format is LBSIJFDZCL [java][3] registering native method callback for class t121 [java][3] signature is ()Ljava/lang/String; [java][3] format is L [java][3] packet sent is ok object:0:1:t121 [perl][3] packet recv is ok object:0:1:t121 [perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String) [perl][4] min = -128, max = 127, val = 1 [perl][4] min = -32768, max = 32767, val = 2 [perl][4] min = -2147483648, max = 2147483647, val = 3 [perl][4] min = -2147483648, max = 2147483647, val = 4 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6 [perl][3] match successful: score is 41 [perl][3] calling object(1).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000) [perl][3] packet sent is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][3] packet recv is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][4] class t121 is reference [java][3] found a types_stub method [java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)? [java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String) [java][4] arg 0 of signature is byte [java][4] class byte is primitive numeric [java][4] args is scalar -> forcing to byte [java][4] result is 1 [java][4] arg 1 of signature is short [java][4] class short is primitive numeric [java][4] args is scalar -> forcing to short [java][4] result is 2 [java][4] arg 2 of signature is int [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 3 [java][4] arg 3 of signature is long [java][4] class long is primitive numeric [java][4] args is scalar -> forcing to long [java][4] result is 4 [java][4] arg 4 of signature is float [java][4] class float is primitive numeric [java][4] args is scalar -> forcing to float [java][4] result is 5.0 [java][4] arg 5 of signature is double [java][4] class double is primitive numeric [java][4] args is scalar -> forcing to double [java][4] result is 6.0 [java][4] arg 6 of signature is boolean [java][4] class boolean is primitive bool [java][4] args is scalar -> forcing to bool [java][4] result is true [java][4] arg 7 of signature is char [java][4] class char is primitive char [java][4] args is scalar -> forcing to char [java][4] result is 2 [java][4] arg 8 of signature is java.lang.String [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is 1000 [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t121@b162d5 [java][3] InvokePerlMethod argument 1 = 0 [java][3] InvokePerlMethod argument 2 = 0 [java][3] InvokePerlMethod argument 3 = 3 [java][3] InvokePerlMethod argument 4 = 4 [java][3] InvokePerlMethod argument 5 = 5.0 [java][3] InvokePerlMethod argument 6 = 6.0 [java][3] InvokePerlMethod argument 7 = false [java][3] InvokePerlMethod argument 8 = [java][3] InvokePerlMethod argument 9 = 1000 [java][3] exiting InvokePerlMethod [java][4] class java.lang.Byte is primitive numeric [java][4] class java.lang.Short is primitive numeric [java][4] class java.lang.Integer is primitive numeric [java][4] class java.lang.Long is primitive numeric [java][4] class java.lang.Float is primitive numeric [java][4] class java.lang.Double is primitive numeric [java][4] class java.lang.Boolean is primitive bool [java][4] class java.lang.Character is primitive char [java][4] class java.lang.String is primitive string [java][2] callback command: callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [java][3] packet sent (callback) is callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [perl][3] checking if stub is array... [perl][3] perl knows about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] returning stub... [perl][2] processing callback main::t121::types(t121=HASH(0x40681674), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000) [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x408b6574) 2 (t121) [perl][3] packet sent is delete_object 2 [java][3] packet recv is delete_object 2 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [java][3] packet recv (callback) is callback false scalar:49.48.49.56 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:49.48.49.56 [perl][3] packet recv is ok scalar:49.48.49.56 not ok 1 # Test 1 got: '1018' (t/12_2_perl_natives.t at line 44) # Expected: '1024' [perl][3] matching arguments to array_stub([I, [Ljava.lang.String;) [perl][4] min = -2147483648, max = 2147483647, val = 34 [perl][4] min = -2147483648, max = 2147483647, val = 56 [perl][4] array is [2] [perl][4] array has 2 declared cells [perl][4] array should have 2 declared cells [perl][3] creating object new [I(34, 56) [perl][3] packet sent is create_object [I (2) scalar:51.52 scalar:53.54 [java][3] packet recv is create_object [I (2) scalar:51.52 scalar:53.54 [java][4] class [I is reference [java][4] class [I is array [java][4] array elements: int [java][4] array dimension: 2 [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 34 [java][4] setting array element 0 to 34 [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 56 [java][4] setting array element 1 to 56 [java][3] packet sent is ok object:0:3:[I [perl][3] packet recv is ok object:0:3:[I [perl][3] checking if [I is a [I [perl][3] packet sent is isa [I [I [java][3] packet recv is isa [I [I [java][4] checking if [I extends [I [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:48 [perl][3] packet recv is ok scalar:48 [perl][3] Inline::Java::Array=ARRAY(0x402b4c84) is a [I [perl][4] array is [2] [perl][4] array has 2 declared cells [perl][4] array should have 2 declared cells [perl][3] creating object new [Ljava.lang.String;(toto, 789) [perl][3] packet sent is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57 [java][3] packet recv is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57 [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is array [java][4] array elements: java.lang.String [java][4] array dimension: 2 [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is toto [java][4] setting array element 0 to toto [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is 789 [java][4] setting array element 1 to 789 [java][3] packet sent is ok object:0:4:[Ljava.lang.String; [perl][3] packet recv is ok object:0:4:[Ljava.lang.String; [perl][3] checking if [Ljava.lang.String; is a [Ljava.lang.String; [perl][3] packet sent is isa [Ljava.lang.String; [Ljava.lang.String; [java][3] packet recv is isa [Ljava.lang.String; [Ljava.lang.String; [java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String; [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:48 [perl][3] packet recv is ok scalar:48 [perl][3] Inline::Java::Array=ARRAY(0x406fa728) is a [Ljava.lang.String; [perl][3] match successful: score is 15 [perl][3] calling object(1).array_stub(Inline::Java::Array=ARRAY(0x402b4c84), Inline::Java::Array=ARRAY(0x406fa728)) [perl][3] packet sent is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4 [java][3] packet recv is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4 [java][4] class t121 is reference [java][3] found a array_stub method [java][3] ([I,[Ljava.lang.String;) = ([I,[Ljava.lang.String;)? [java][3] has matching signature ([I,[Ljava.lang.String;) [java][4] arg 0 of signature is [I [java][4] class [I is reference [java][4] class [I is reference [java][4] checking if [I extends [I [java][4] [I is a kind of [I [java][4] arg 1 of signature is [Ljava.lang.String; [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is reference [java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String; [java][4] [Ljava.lang.String; is a kind of [Ljava.lang.String; [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t121@b162d5 [java][3] InvokePerlMethod argument 1 = [I@186d4c1 [java][3] InvokePerlMethod argument 2 = [Ljava.lang.String;@f9f9d8 [java][3] exiting InvokePerlMethod [java][2] callback command: callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String; [java][3] packet sent (callback) is callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String; [perl][3] checking if stub is array... [perl][3] perl knows about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] returning stub... [perl][3] checking if stub is array... [perl][3] creating array object... [perl][2] creating object in java (Inline::Java::Object): [perl][3] array object created... [perl][3] returning stub... [perl][3] checking if stub is array... [perl][3] creating array object... [perl][2] creating object in java (Inline::Java::Object): [perl][3] array object created... [perl][3] returning stub... [perl][2] processing callback main::t121::array(t121=HASH(0x406fa80c), Inline::Java::Array=ARRAY(0x406fa83c), Inline::Java::Array=ARRAY(0x406f9bf4)) [perl][3] calling object(6).getLength() [perl][3] packet sent is call_method 6 [I getLength () [java][3] packet recv is call_method 6 [I getLength () [java][4] class [I is reference [java][4] class [I is array [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:50 [perl][3] packet recv is ok scalar:50 [perl][3] getting object(6)->{0} [perl][3] packet sent is get_member 6 [I 0 java.lang.Object undef: [java][3] packet recv is get_member 6 [I 0 java.lang.Object undef: [java][4] class [I is reference [java][4] class [I is array [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:51.52 [perl][3] packet recv is ok scalar:51.52 [perl][3] calling object(7).getLength() [perl][3] packet sent is call_method 7 [Ljava.lang.String; getLength () [java][3] packet recv is call_method 7 [Ljava.lang.String; getLength () [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is array [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:50 [perl][3] packet recv is ok scalar:50 [perl][3] getting object(7)->{1} [perl][3] packet sent is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef: [java][3] packet recv is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef: [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is array [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:55.56.57 [perl][3] packet recv is ok scalar:55.56.57 [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x406f6e94) 5 (t121) [perl][3] packet sent is delete_object 5 [java][3] packet recv is delete_object 5 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x406f9bb8) 7 ([Ljava.lang.String;) [perl][3] packet sent is delete_object 7 [java][3] packet recv is delete_object 7 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x406f9c6c) 6 ([I) [perl][3] packet sent is delete_object 6 [java][3] packet recv is delete_object 6 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [java][3] packet recv (callback) is callback false scalar:56.50.51 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:56.50.51 [perl][3] packet recv is ok scalar:56.50.51 ok 2 [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x406fab4c) 4 ([Ljava.lang.String;) [perl][3] packet sent is delete_object 4 [java][3] packet recv is delete_object 4 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x408b65ec) 3 ([I) [perl][3] packet sent is delete_object 3 [java][3] packet recv is delete_object 3 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][3] matching arguments to new() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] creating object new t1212() [perl][3] packet sent is create_object t1212 () [java][3] packet recv is create_object t1212 () [java][4] class t1212 is reference [java][3] found a t1212 constructor [java][3] () = ()? [java][3] has matching signature () [java][3] registering natives for class t1212 [java][3] packet sent is ok object:0:8:t1212 [perl][3] packet recv is ok object:0:8:t1212 [perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String) [perl][4] min = -128, max = 127, val = 1 [perl][4] min = -32768, max = 32767, val = 2 [perl][4] min = -2147483648, max = 2147483647, val = 3 [perl][4] min = -2147483648, max = 2147483647, val = 4 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6 [perl][3] match successful: score is 41 [perl][3] calling object(8).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000) [perl][3] packet sent is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][3] packet recv is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][4] class t1212 is reference [java][3] found a types_stub method [java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)? [java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String) [java][4] arg 0 of signature is byte [java][4] class byte is primitive numeric [java][4] args is scalar -> forcing to byte [java][4] result is 1 [java][4] arg 1 of signature is short [java][4] class short is primitive numeric [java][4] args is scalar -> forcing to short [java][4] result is 2 [java][4] arg 2 of signature is int [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 3 [java][4] arg 3 of signature is long [java][4] class long is primitive numeric [java][4] args is scalar -> forcing to long [java][4] result is 4 [java][4] arg 4 of signature is float [java][4] class float is primitive numeric [java][4] args is scalar -> forcing to float [java][4] result is 5.0 [java][4] arg 5 of signature is double [java][4] class double is primitive numeric [java][4] args is scalar -> forcing to double [java][4] result is 6.0 [java][4] arg 6 of signature is boolean [java][4] class boolean is primitive bool [java][4] args is scalar -> forcing to bool [java][4] result is true [java][4] arg 7 of signature is char [java][4] class char is primitive char [java][4] args is scalar -> forcing to char [java][4] result is 2 [java][4] arg 8 of signature is java.lang.String [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is 1000 [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t1212@7ffe01 [java][3] InvokePerlMethod argument 1 = 0 [java][3] InvokePerlMethod argument 2 = 0 [java][3] InvokePerlMethod argument 3 = 3 [java][3] InvokePerlMethod argument 4 = 4 [java][3] InvokePerlMethod argument 5 = 5.0 [java][3] InvokePerlMethod argument 6 = 6.0 [java][3] InvokePerlMethod argument 7 = false [java][3] InvokePerlMethod argument 8 = [java][3] InvokePerlMethod argument 9 = 1000 [java][3] exiting InvokePerlMethod [java][4] class java.lang.Byte is primitive numeric [java][4] class java.lang.Short is primitive numeric [java][4] class java.lang.Integer is primitive numeric [java][4] class java.lang.Long is primitive numeric [java][4] class java.lang.Float is primitive numeric [java][4] class java.lang.Double is primitive numeric [java][4] class java.lang.Boolean is primitive bool [java][4] class java.lang.Character is primitive char [java][4] class java.lang.String is primitive string [java][2] callback command: callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [java][3] packet sent (callback) is callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [perl][3] checking if stub is array... [perl][3] perl knows about 't1212' ('main::t1212') [perl][2] creating object in java (main::t1212): [perl][3] returning stub... [perl][2] processing callback main::t121::types(main::t1212=HASH(0x406fa728), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000) [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t1212): [perl][3] deleting object main::t1212=HASH(0x406fa7ac) 9 (t1212) [perl][3] packet sent is delete_object 9 [java][3] packet recv is delete_object 9 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [java][3] packet recv (callback) is callback false scalar:49.48.49.56 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:49.48.49.56 [perl][3] packet recv is ok scalar:49.48.49.56 not ok 3 # Test 3 got: '1018' (t/12_2_perl_natives.t at line 48) # Expected: '1024' [perl][3] matching arguments to callback_stub() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(1).callback_stub() [perl][3] packet sent is call_method 1 t121 callback_stub () [java][3] packet recv is call_method 1 t121 callback_stub () [java][4] class t121 is reference [java][3] found a callback_stub method [java][3] () = ()? [java][3] has matching signature () [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t121@b162d5 [java][3] exiting InvokePerlMethod [java][2] callback command: callback ::t121 callback null object:0:10:t121 [java][3] packet sent (callback) is callback ::t121 callback null object:0:10:t121 [perl][3] checking if stub is array... [perl][3] perl knows about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] returning stub... [perl][2] processing callback main::t121::callback(t121=HASH(0x406f9ae0)) [perl][3] matching arguments to get_name() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(10).get_name() [perl][3] packet sent is call_method 10 t121 get_name () [java][3] packet recv is call_method 10 t121 get_name () [java][4] class t121 is reference [java][3] found a get_name method [java][3] () = ()? [java][3] has matching signature () [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:116.111.116.111 [perl][3] packet recv is ok scalar:116.111.116.111 [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x406f9b58) 10 (t121) [perl][3] packet sent is delete_object 10 [java][3] packet recv is delete_object 10 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [java][3] packet recv (callback) is callback false scalar:116.111.116.111 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:116.111.116.111 [perl][3] packet recv is ok scalar:116.111.116.111 ok 4 [perl][3] getting object count [perl][3] packet sent is obj_cnt [java][3] packet recv is obj_cnt [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:50 [perl][3] packet recv is ok scalar:50 ok 5 [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x40678628) 1 (t121) [perl][3] packet sent is delete_object 1 [java][3] packet recv is delete_object 1 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t1212): [perl][3] deleting object main::t1212=HASH(0x40681608) 8 (t1212) [perl][3] packet sent is delete_object 8 [java][3] packet recv is delete_object 8 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object::Private [perl][1] killed by natural death. [perl][1] JVM owner exiting... [perl][1] exiting with 0 [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java ###### Now make test without JNI active # unset PERL_INLINE_JAVA_DEBUG # unset PERL_INLINE_JAVA_JNI # unset LD_PRELOAD # make test PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/opt/perl/lib/5.6.1/PA-RISC1.1-thread-multi -I/opt/perl/lib/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t t/01_init...........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: Perl version is 5.006001 Inline version is 0.44 Inline::Java version is 0.45 J2SDK version is 1.4.2.01, from /opt/java1.4 CLASSPATH is t/01_init...........ok 1/1 t/01_init...........ok t/02_primitives.....Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/02_primitives.....ok 1/99 t/02_primitives.....ok 2/99 t/02_primitives.....ok 3/99 t/02_primitives.....ok 4/99 t/02_primitives.....ok 5/99 t/02_primitives.....ok 6/99 t/02_primitives.....ok 7/99 t/02_primitives.....ok 8/99 t/02_primitives.....ok 9/99 t/02_primitives.....ok 10/99 t/02_primitives.....ok 11/99 t/02_primitives.....ok 12/99 t/02_primitives.....ok 13/99 t/02_primitives.....ok 14/99 t/02_primitives.....ok 15/99 t/02_primitives.....ok 16/99 t/02_primitives.....ok 17/99 t/02_primitives.....ok 18/99 t/02_primitives.....ok 19/99 t/02_primitives.....ok 20/99 t/02_primitives.....ok 21/99 t/02_primitives.....ok 22/99 t/02_primitives.....ok 23/99 t/02_primitives.....ok 24/99 t/02_primitives.....ok 25/99 t/02_primitives.....ok 26/99 t/02_primitives.....ok 27/99 t/02_primitives.....ok 28/99 t/02_primitives.....ok 29/99 t/02_primitives.....ok 30/99 t/02_primitives.....ok 31/99 t/02_primitives.....ok 32/99 t/02_primitives.....ok 33/99 t/02_primitives.....ok 34/99 t/02_primitives.....ok 35/99 t/02_primitives.....ok 36/99 t/02_primitives.....ok 37/99 t/02_primitives.....ok 38/99 t/02_primitives.....ok 39/99 t/02_primitives.....ok 40/99 t/02_primitives.....ok 41/99 t/02_primitives.....ok 42/99 t/02_primitives.....ok 43/99 t/02_primitives.....ok 44/99 t/02_primitives.....ok 45/99 t/02_primitives.....ok 46/99 t/02_primitives.....ok 47/99 t/02_primitives.....ok 48/99 t/02_primitives.....ok 49/99 t/02_primitives.....ok 50/99 t/02_primitives.....ok 51/99 t/02_primitives.....ok 52/99 t/02_primitives.....ok 53/99 t/02_primitives.....ok 54/99 t/02_primitives.....ok 55/99 t/02_primitives.....ok 56/99 t/02_primitives.....ok 57/99 t/02_primitives.....ok 58/99 t/02_primitives.....ok 59/99 t/02_primitives.....ok 60/99 t/02_primitives.....ok 61/99 t/02_primitives.....ok 62/99 t/02_primitives.....ok 63/99 t/02_primitives.....ok 64/99 t/02_primitives.....ok 65/99 t/02_primitives.....ok 66/99 t/02_primitives.....ok 67/99 t/02_primitives.....ok 68/99 t/02_primitives.....ok 69/99 t/02_primitives.....ok 70/99 t/02_primitives.....ok 71/99 t/02_primitives.....ok 72/99 t/02_primitives.....ok 73/99 t/02_primitives.....ok 74/99 t/02_primitives.....ok 75/99 t/02_primitives.....ok 76/99 t/02_primitives.....ok 77/99 t/02_primitives.....ok 78/99 t/02_primitives.....ok 79/99 t/02_primitives.....ok 80/99 t/02_primitives.....ok 81/99 t/02_primitives.....ok 82/99 t/02_primitives.....ok 83/99 t/02_primitives.....ok 84/99 t/02_primitives.....ok 85/99 t/02_primitives.....ok 86/99 t/02_primitives.....ok 87/99 t/02_primitives.....ok 88/99 t/02_primitives.....ok 89/99 t/02_primitives.....ok 90/99 t/02_primitives.....ok 91/99 t/02_primitives.....ok 92/99 t/02_primitives.....ok 93/99 t/02_primitives.....ok 94/99 t/02_primitives.....ok 95/99 t/02_primitives.....ok 96/99 t/02_primitives.....ok 97/99 t/02_primitives.....ok 98/99 t/02_primitives.....ok 99/99 t/02_primitives.....ok t/03_objects........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/03_objects........ok 1/16 t/03_objects........ok 2/16 t/03_objects........ok 3/16 t/03_objects........ok 4/16 t/03_objects........ok 5/16 t/03_objects........ok 6/16 t/03_objects........ok 7/16 t/03_objects........ok 8/16 t/03_objects........ok 9/16 t/03_objects........ok 10/16 t/03_objects........ok 11/16 t/03_objects........ok 12/16 t/03_objects........ok 13/16 t/03_objects........ok 14/16 t/03_objects........ok 15/16 t/03_objects........ok 16/16 t/03_objects........ok t/04_members........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/04_members........ok 1/28 t/04_members........ok 2/28 t/04_members........ok 3/28 t/04_members........ok 4/28 t/04_members........ok 5/28 t/04_members........ok 6/28 t/04_members........ok 7/28 t/04_members........ok 8/28 t/04_members........ok 9/28 t/04_members........ok 10/28 t/04_members........ok 11/28 t/04_members........ok 12/28 t/04_members........ok 13/28 t/04_members........ok 14/28 t/04_members........ok 15/28 t/04_members........ok 16/28 t/04_members........ok 17/28 t/04_members........ok 18/28 t/04_members........ok 19/28 t/04_members........ok 20/28 t/04_members........ok 21/28 t/04_members........ok 22/28 t/04_members........ok 23/28 t/04_members........ok 24/28 t/04_members........ok 25/28 t/04_members........ok 26/28 t/04_members........ok 27/28 t/04_members........ok 28/28 t/04_members........ok t/05_arrays.........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/05_arrays.........ok 1/55 t/05_arrays.........ok 2/55 t/05_arrays.........ok 3/55 t/05_arrays.........ok 4/55 t/05_arrays.........ok 5/55 t/05_arrays.........ok 6/55 t/05_arrays.........ok 7/55 t/05_arrays.........ok 8/55 t/05_arrays.........ok 9/55 t/05_arrays.........ok 10/55 t/05_arrays.........ok 11/55 t/05_arrays.........ok 12/55 t/05_arrays.........ok 13/55 t/05_arrays.........ok 14/55 t/05_arrays.........ok 15/55 t/05_arrays.........ok 16/55 t/05_arrays.........ok 17/55 t/05_arrays.........ok 18/55 t/05_arrays.........ok 19/55 t/05_arrays.........ok 20/55 t/05_arrays.........ok 21/55 t/05_arrays.........ok 22/55 t/05_arrays.........ok 23/55 t/05_arrays.........ok 24/55 t/05_arrays.........ok 25/55 t/05_arrays.........ok 26/55 t/05_arrays.........ok 27/55 t/05_arrays.........ok 28/55 t/05_arrays.........ok 29/55 t/05_arrays.........ok 30/55 t/05_arrays.........ok 31/55 t/05_arrays.........ok 32/55 t/05_arrays.........ok 33/55 t/05_arrays.........ok 34/55 t/05_arrays.........ok 35/55 t/05_arrays.........ok 36/55 t/05_arrays.........ok 37/55 t/05_arrays.........ok 38/55 t/05_arrays.........ok 39/55 t/05_arrays.........ok 40/55 t/05_arrays.........ok 41/55 t/05_arrays.........ok 42/55 t/05_arrays.........ok 43/55 t/05_arrays.........ok 44/55 t/05_arrays.........ok 45/55 t/05_arrays.........ok 46/55 t/05_arrays.........ok 47/55 t/05_arrays.........ok 48/55 t/05_arrays.........ok 49/55 t/05_arrays.........ok 50/55 t/05_arrays.........ok 51/55 t/05_arrays.........ok 52/55 t/05_arrays.........ok 53/55 t/05_arrays.........ok 54/55 t/05_arrays.........ok 55/55 t/05_arrays.........ok t/06_static.........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/06_static.........ok 1/10 t/06_static.........ok 2/10 t/06_static.........ok 3/10 t/06_static.........ok 4/10 t/06_static.........ok 5/10 t/06_static.........ok 6/10 t/06_static.........ok 7/10 t/06_static.........ok 8/10 t/06_static.........ok 9/10 t/06_static.........ok 10/10 t/06_static.........ok t/07_polymorph......Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/07_polymorph......ok 1/22 t/07_polymorph......ok 2/22 t/07_polymorph......ok 3/22 t/07_polymorph......ok 4/22 t/07_polymorph......ok 5/22 t/07_polymorph......ok 6/22 t/07_polymorph......ok 7/22 t/07_polymorph......ok 8/22 t/07_polymorph......ok 9/22 t/07_polymorph......ok 10/22 t/07_polymorph......ok 11/22 t/07_polymorph......ok 12/22 t/07_polymorph......ok 13/22 t/07_polymorph......ok 14/22 t/07_polymorph......ok 15/22 t/07_polymorph......ok 16/22 t/07_polymorph......ok 17/22 t/07_polymorph......ok 18/22 t/07_polymorph......ok 19/22 t/07_polymorph......ok 20/22 t/07_polymorph......ok 21/22 t/07_polymorph......ok 22/22 t/07_polymorph......ok t/08_study..........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/08_study..........ok 1/9 t/08_study..........ok 2/9 t/08_study..........ok 3/9 t/08_study..........ok 4/9 t/08_study..........ok 5/9 t/08_study..........ok 6/9 t/08_study..........ok 7/9 t/08_study..........ok 8/9 t/08_study..........ok 9/9 t/08_study..........ok t/09_usages.........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/09_usages.........ok 1/4 t/09_usages.........ok 2/4 t/09_usages.........ok 3/4 t/09_usages.........ok 4/4 t/09_usages.........ok t/10_1_shared_alone. t/10_1_shared_alone.ok 1/4 t/10_1_shared_alone.ok 2/4 t/10_1_shared_alone.ok 3/4 t/10_1_shared_alone.ok 4/4 t/10_1_shared_alone.ok t/10_2_shared_start. t/10_2_shared_start.ok 1/3 t/10_2_shared_start.ok 2/3 t/10_2_shared_start.ok 3/3 t/10_2_shared_start.ok t/10_3_shared_use... t/10_3_shared_use...ok 1/3 t/10_3_shared_use...ok 2/3 t/10_3_shared_use...ok 3/3 t/10_3_shared_use...ok t/10_4_shared_stop.. t/10_4_shared_stop..ok 1/4 t/10_4_shared_stop..ok 2/4 t/10_4_shared_stop..ok 3/4 t/10_4_shared_stop..ok 4/4 t/10_4_shared_stop..ok t/10_5_shared_fork.. t/10_5_shared_fork..ok 1/8 t/10_5_shared_fork..ok 2/8 t/10_5_shared_fork..ok 3/8 t/10_5_shared_fork..ok 4/8 t/10_5_shared_fork..ok 5/8 t/10_5_shared_fork..ok 6/8 t/10_5_shared_fork..ok 7/8 t/10_5_shared_fork..ok 8/8 t/10_5_shared_fork..ok t/10_6_shared_sim... t/10_6_shared_sim...ok 1/7 t/10_6_shared_sim...ok 2/7 t/10_6_shared_sim...ok 3/7 t/10_6_shared_sim...ok 4/7 t/10_6_shared_sim...ok 5/7 t/10_6_shared_sim...ok 6/7 t/10_6_shared_sim...ok 7/7 t/10_6_shared_sim...ok t/11_exceptions.....Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/11_exceptions.....ok 1/8 t/11_exceptions.....ok 2/8 t/11_exceptions.....ok 3/8 t/11_exceptions.....ok 4/8 t/11_exceptions.....ok 5/8 t/11_exceptions.....ok 6/8 t/11_exceptions.....ok 7/8 t/11_exceptions.....ok 8/8 t/11_exceptions.....ok t/12_1_callbacks.... t/12_1_callbacks....ok 1/23 t/12_1_callbacks....ok 2/23 t/12_1_callbacks....ok 3/23 t/12_1_callbacks....ok 4/23 t/12_1_callbacks....ok 5/23 t/12_1_callbacks....ok 6/23 t/12_1_callbacks....ok 7/23 t/12_1_callbacks....ok 8/23 t/12_1_callbacks....ok 9/23 t/12_1_callbacks....ok 10/23 t/12_1_callbacks....ok 11/23 t/12_1_callbacks....ok 12/23 t/12_1_callbacks....ok 13/23 t/12_1_callbacks....ok 14/23 t/12_1_callbacks....ok 15/23 t/12_1_callbacks....ok 16/23 t/12_1_callbacks....ok 17/23 t/12_1_callbacks....ok 18/23 t/12_1_callbacks....ok 19/23 t/12_1_callbacks....ok 20/23 t/12_1_callbacks....ok 21/23 t/12_1_callbacks....ok 22/23 t/12_1_callbacks....ok 23/23 t/12_1_callbacks....ok t/12_2_perl_natives. Note: PerlNatives is still experimental and errors here can safely be ignored if you don't plan on using this feature. However, the author would appreciate if errors encountered here were reported to the mailing list (inline@perl.org) along with your hardware/OS detail. Thank you. Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: Argument "" isn't numeric in addition (+) at t/12_2_perl_natives.t line 71, line 7. t/12_2_perl_natives.NOK 1 t/12_2_perl_natives.ok 2/5 Argument "" isn't numeric in addition (+) at t/12_2_perl_natives.t line 71, line 26. t/12_2_perl_natives.NOK 3 t/12_2_perl_natives.ok 4/5 t/12_2_perl_natives.ok 5/5 t/12_2_perl_natives.FAILED tests 1, 3 Failed 2/5 tests, 60.00% okay t/13_end............Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: t/13_end............ok 1/1 t/13_end............ok Failed Test Status Wstat Total Fail Failed List of Failed -------------------------------------------------------------------------------- t/12_2_perl_natives.t 5 2 40.00% 1, 3 Failed 1/19 test scripts, 94.74% okay. 2/310 subtests failed, 99.35% okay. *** Error exit code 255 Stop. ####### Individual t/12_2 test as asked by Mr. LeBoutillier ####### WITHOUT JNI active # export PERL_INLINE_JAVA_DEBUG=4 # perl -Mblib t/12_2_perl_natives.t Using /opt/Inline-Java-0.45/blib Note: PerlNatives is still experimental and errors here can safely be ignored if you don't plan on using this feature. However, the author would appreciate if errors encountered here were reported to the mailing list (inline@perl.org) along with your hardware/OS detail. Thank you. [perl][1] validate done. [perl][1] Starting load. [perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':' [perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar' [perl][2] classpath: /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar [perl][1] starting JVM... [perl][1] client/server mode [perl][4] portable: GOT_NEXT_FREE_PORT for hpux is default '1' Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning. Error: [perl][4] portable: EXE_EXTENSION for hpux is default '' [perl][4] portable: SUB_FIX_CMD_QUOTES => "/opt/java1.4/bin/java" org.perl.inline.java.InlineJavaServer 4 7890 false false for hpux is default '"/opt/java1.4/bin/java" org.perl.inline.java.InlineJavaServer 4 7890 false false' [perl][2] "/opt/java1.4/bin/java" org.perl.inline.java.InlineJavaServer 4 7890 false false [perl][4] portable: DEV_NULL for hpux is default '/dev/null' [perl][4] portable: GOT_ALARM for hpux is default 'define' [perl][2] classpath: [perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar' [perl][2] adding to classpath: '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar' [perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114 [java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114 [java][2] added file:/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar to classpath [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][3] getting server type [perl][3] packet sent is server_type [java][3] packet recv is server_type [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:112.114.105.118.97.116.101 [perl][3] packet recv is ok scalar:112.114.105.118.97.116.101 [perl][4] destroying Inline::Java::Protocol [perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':' [perl][2] classpath candidate '' scraped [perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54 for hpux is default '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54' [perl][2] adding to classpath: '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54' [perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52 [java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52 [java][2] added file:/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54/ to classpath [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][3] Inline::Java object id is 0 [perl][1] using jdat cache [perl][3] perl doesn't know about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] perl doesn't know about 't1212' ('main::t1212') [perl][2] creating object in java (main::t1212): [perl][1] load done. [perl][4] destroying Inline::Java::Protocol [perl][3] matching arguments to init() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(0).init() [perl][3] packet sent is call_method 0 t121 init () [java][3] packet recv is call_method 0 t121 init () [java][4] class t121 is reference [java][3] found a init method [java][3] () = ()? [java][3] has matching signature () [java][1] loading InlineJavaUserClassLink via InlineJavaUserClassLoader [java][2] loading shared library /opt/Inline-Java-0.45/blib/arch/auto/Inline/Java/Natives/Natives.sl [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: 1..5 [perl][3] matching arguments to init() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(0).init() [perl][3] packet sent is call_method 0 t121 init () [java][3] packet recv is call_method 0 t121 init () [java][4] class t121 is reference [java][3] method was cached [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][3] matching arguments to new() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] creating object new t121() [perl][3] packet sent is create_object t121 () [java][3] packet recv is create_object t121 () [java][4] class t121 is reference [java][3] found a t121 constructor [java][3] () = ()? [java][3] has matching signature () [java][3] registering natives for class t121 [java][3] registering native method array for class t121 [java][3] signature is ([I[Ljava/lang/String;)Ljava/lang/String; [java][3] format is LLL [java][3] registering native method types for class t121 [java][3] signature is (BSIJFDZCLjava/lang/String;)Ljava/lang/String; [java][3] format is LBSIJFDZCL [java][3] registering native method callback for class t121 [java][3] signature is ()Ljava/lang/String; [java][3] format is L [java][3] packet sent is ok object:0:1:t121 [perl][3] packet recv is ok object:0:1:t121 [perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String) [perl][4] min = -128, max = 127, val = 1 [perl][4] min = -32768, max = 32767, val = 2 [perl][4] min = -2147483648, max = 2147483647, val = 3 [perl][4] min = -2147483648, max = 2147483647, val = 4 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6 [perl][3] match successful: score is 41 [perl][3] calling object(1).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000) [perl][3] packet sent is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][3] packet recv is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][4] class t121 is reference [java][3] found a types_stub method [java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)? [java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String) [java][4] arg 0 of signature is byte [java][4] class byte is primitive numeric [java][4] args is scalar -> forcing to byte [java][4] result is 1 [java][4] arg 1 of signature is short [java][4] class short is primitive numeric [java][4] args is scalar -> forcing to short [java][4] result is 2 [java][4] arg 2 of signature is int [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 3 [java][4] arg 3 of signature is long [java][4] class long is primitive numeric [java][4] args is scalar -> forcing to long [java][4] result is 4 [java][4] arg 4 of signature is float [java][4] class float is primitive numeric [java][4] args is scalar -> forcing to float [java][4] result is 5.0 [java][4] arg 5 of signature is double [java][4] class double is primitive numeric [java][4] args is scalar -> forcing to double [java][4] result is 6.0 [java][4] arg 6 of signature is boolean [java][4] class boolean is primitive bool [java][4] args is scalar -> forcing to bool [java][4] result is true [java][4] arg 7 of signature is char [java][4] class char is primitive char [java][4] args is scalar -> forcing to char [java][4] result is 2 [java][4] arg 8 of signature is java.lang.String [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is 1000 [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t121@117a8bd [java][3] InvokePerlMethod argument 1 = 0 [java][3] InvokePerlMethod argument 2 = 0 [java][3] InvokePerlMethod argument 3 = 3 [java][3] InvokePerlMethod argument 4 = 4 [java][3] InvokePerlMethod argument 5 = 5.0 [java][3] InvokePerlMethod argument 6 = 6.0 [java][3] InvokePerlMethod argument 7 = false [java][3] InvokePerlMethod argument 8 = [java][3] InvokePerlMethod argument 9 = 1000 [java][3] exiting InvokePerlMethod [java][4] class java.lang.Byte is primitive numeric [java][4] class java.lang.Short is primitive numeric [java][4] class java.lang.Integer is primitive numeric [java][4] class java.lang.Long is primitive numeric [java][4] class java.lang.Float is primitive numeric [java][4] class java.lang.Double is primitive numeric [java][4] class java.lang.Boolean is primitive bool [java][4] class java.lang.Character is primitive char [java][4] class java.lang.String is primitive string [java][2] callback command: callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [java][3] packet sent (callback) is callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [perl][3] packet recv is callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [perl][3] checking if stub is array... [perl][3] perl knows about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] returning stub... [perl][2] processing callback main::t121::types(t121=HASH(0x4053f8e0), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000) [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x4056abf8) 2 (t121) [perl][3] packet sent is delete_object 2 [java][3] packet recv (callback) is delete_object 2 [java][3] packet is not callback response: delete_object 2 [java][3] packet recv is delete_object 2 [java][3] packet sent is ok undef: [java][3] packet sent (callback) is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [perl][3] packet sent is callback false scalar:49.48.49.56 [java][3] packet recv (callback) is callback false scalar:49.48.49.56 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:49.48.49.56 [perl][3] packet recv is ok scalar:49.48.49.56 not ok 1 # Test 1 got: '1018' (t/12_2_perl_natives.t at line 44) # Expected: '1024' [perl][3] matching arguments to array_stub([I, [Ljava.lang.String;) [perl][4] min = -2147483648, max = 2147483647, val = 34 [perl][4] min = -2147483648, max = 2147483647, val = 56 [perl][4] array is [2] [perl][4] array has 2 declared cells [perl][4] array should have 2 declared cells [perl][3] creating object new [I(34, 56) [perl][3] packet sent is create_object [I (2) scalar:51.52 scalar:53.54 [java][3] packet recv is create_object [I (2) scalar:51.52 scalar:53.54 [java][4] class [I is reference [java][4] class [I is array [java][4] array elements: int [java][4] array dimension: 2 [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 34 [java][4] setting array element 0 to 34 [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 56 [java][4] setting array element 1 to 56 [java][3] packet sent is ok object:0:3:[I [perl][3] packet recv is ok object:0:3:[I [perl][3] checking if [I is a [I [perl][3] packet sent is isa [I [I [java][3] packet recv is isa [I [I [java][4] checking if [I extends [I [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:48 [perl][3] packet recv is ok scalar:48 [perl][3] Inline::Java::Array=ARRAY(0x40147504) is a [I [perl][4] array is [2] [perl][4] array has 2 declared cells [perl][4] array should have 2 declared cells [perl][3] creating object new [Ljava.lang.String;(toto, 789) [perl][3] packet sent is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57 [java][3] packet recv is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57 [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is array [java][4] array elements: java.lang.String [java][4] array dimension: 2 [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is toto [java][4] setting array element 0 to toto [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is 789 [java][4] setting array element 1 to 789 [java][3] packet sent is ok object:0:4:[Ljava.lang.String; [perl][3] packet recv is ok object:0:4:[Ljava.lang.String; [perl][3] checking if [Ljava.lang.String; is a [Ljava.lang.String; [perl][3] packet sent is isa [Ljava.lang.String; [Ljava.lang.String; [java][3] packet recv is isa [Ljava.lang.String; [Ljava.lang.String; [java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String; [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:48 [perl][3] packet recv is ok scalar:48 [perl][3] Inline::Java::Array=ARRAY(0x405b203c) is a [Ljava.lang.String; [perl][3] match successful: score is 15 [perl][3] calling object(1).array_stub(Inline::Java::Array=ARRAY(0x40147504), Inline::Java::Array=ARRAY(0x405b203c)) [perl][3] packet sent is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4 [java][3] packet recv is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4 [java][4] class t121 is reference [java][3] found a array_stub method [java][3] ([I,[Ljava.lang.String;) = ([I,[Ljava.lang.String;)? [java][3] has matching signature ([I,[Ljava.lang.String;) [java][4] arg 0 of signature is [I [java][4] class [I is reference [java][4] class [I is reference [java][4] checking if [I extends [I [java][4] [I is a kind of [I [java][4] arg 1 of signature is [Ljava.lang.String; [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is reference [java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String; [java][4] [Ljava.lang.String; is a kind of [Ljava.lang.String; [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t121@117a8bd [java][3] InvokePerlMethod argument 1 = [I@10ef90c [java][3] InvokePerlMethod argument 2 = [Ljava.lang.String;@a32b [java][3] exiting InvokePerlMethod [java][2] callback command: callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String; [java][3] packet sent (callback) is callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String; [perl][3] packet recv is callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String; [perl][3] checking if stub is array... [perl][3] perl knows about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] returning stub... [perl][3] checking if stub is array... [perl][3] creating array object... [perl][2] creating object in java (Inline::Java::Object): [perl][3] array object created... [perl][3] returning stub... [perl][3] checking if stub is array... [perl][3] creating array object... [perl][2] creating object in java (Inline::Java::Object): [perl][3] array object created... [perl][3] returning stub... [perl][2] processing callback main::t121::array(t121=HASH(0x405b2120), Inline::Java::Array=ARRAY(0x405b2150), Inline::Java::Array=ARRAY(0x4056b554)) [perl][3] calling object(6).getLength() [perl][3] packet sent is call_method 6 [I getLength () [java][3] packet recv (callback) is call_method 6 [I getLength () [java][3] packet is not callback response: call_method 6 [I getLength () [java][3] packet recv is call_method 6 [I getLength () [java][4] class [I is reference [java][4] class [I is array [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:50 [java][3] packet sent (callback) is ok scalar:50 [perl][3] packet recv is ok scalar:50 [perl][3] getting object(6)->{0} [perl][3] packet sent is get_member 6 [I 0 java.lang.Object undef: [java][3] packet recv (callback) is get_member 6 [I 0 java.lang.Object undef: [java][3] packet is not callback response: get_member 6 [I 0 java.lang.Object undef: [java][3] packet recv is get_member 6 [I 0 java.lang.Object undef: [java][4] class [I is reference [java][4] class [I is array [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:51.52 [java][3] packet sent (callback) is ok scalar:51.52 [perl][3] packet recv is ok scalar:51.52 [perl][3] calling object(7).getLength() [perl][3] packet sent is call_method 7 [Ljava.lang.String; getLength () [java][3] packet recv (callback) is call_method 7 [Ljava.lang.String; getLength () [java][3] packet is not callback response: call_method 7 [Ljava.lang.String; getLength () [java][3] packet recv is call_method 7 [Ljava.lang.String; getLength () [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is array [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:50 [java][3] packet sent (callback) is ok scalar:50 [perl][3] packet recv is ok scalar:50 [perl][3] getting object(7)->{1} [perl][3] packet sent is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef: [java][3] packet recv (callback) is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef: [java][3] packet is not callback response: get_member 7 [Ljava.lang.String; 1 java.lang.Object undef: [java][3] packet recv is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef: [java][4] class [Ljava.lang.String; is reference [java][4] class [Ljava.lang.String; is array [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:55.56.57 [java][3] packet sent (callback) is ok scalar:55.56.57 [perl][3] packet recv is ok scalar:55.56.57 [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x405b2ca0) 5 (t121) [perl][3] packet sent is delete_object 5 [java][3] packet recv (callback) is delete_object 5 [java][3] packet is not callback response: delete_object 5 [java][3] packet recv is delete_object 5 [java][3] packet sent is ok undef: [java][3] packet sent (callback) is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x4056b518) 7 ([Ljava.lang.String;) [perl][3] packet sent is delete_object 7 [java][3] packet recv (callback) is delete_object 7 [java][3] packet is not callback response: delete_object 7 [java][3] packet recv is delete_object 7 [java][3] packet sent is ok undef: [java][3] packet sent (callback) is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x4056b5cc) 6 ([I) [perl][3] packet sent is delete_object 6 [java][3] packet recv (callback) is delete_object 6 [java][3] packet is not callback response: delete_object 6 [java][3] packet recv is delete_object 6 [java][3] packet sent is ok undef: [java][3] packet sent (callback) is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [perl][3] packet sent is callback false scalar:56.50.51 [java][3] packet recv (callback) is callback false scalar:56.50.51 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:56.50.51 [perl][3] packet recv is ok scalar:56.50.51 ok 2 [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x405b2da8) 4 ([Ljava.lang.String;) [perl][3] packet sent is delete_object 4 [java][3] packet recv is delete_object 4 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Array [perl][4] destroying Inline::Java::Array::Tie [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (Inline::Java::Object): [perl][3] deleting object Inline::Java::Object=HASH(0x405ab600) 3 ([I) [perl][3] packet sent is delete_object 3 [java][3] packet recv is delete_object 3 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][3] matching arguments to new() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] creating object new t1212() [perl][3] packet sent is create_object t1212 () [java][3] packet recv is create_object t1212 () [java][4] class t1212 is reference [java][3] found a t1212 constructor [java][3] () = ()? [java][3] has matching signature () [java][3] registering natives for class t1212 [java][3] packet sent is ok object:0:8:t1212 [perl][3] packet recv is ok object:0:8:t1212 [perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String) [perl][4] min = -128, max = 127, val = 1 [perl][4] min = -32768, max = 32767, val = 2 [perl][4] min = -2147483648, max = 2147483647, val = 3 [perl][4] min = -2147483648, max = 2147483647, val = 4 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5 [perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6 [perl][3] match successful: score is 41 [perl][3] calling object(8).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000) [perl][3] packet sent is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][3] packet recv is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48 [java][4] class t1212 is reference [java][3] found a types_stub method [java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)? [java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String) [java][4] arg 0 of signature is byte [java][4] class byte is primitive numeric [java][4] args is scalar -> forcing to byte [java][4] result is 1 [java][4] arg 1 of signature is short [java][4] class short is primitive numeric [java][4] args is scalar -> forcing to short [java][4] result is 2 [java][4] arg 2 of signature is int [java][4] class int is primitive numeric [java][4] args is scalar -> forcing to int [java][4] result is 3 [java][4] arg 3 of signature is long [java][4] class long is primitive numeric [java][4] args is scalar -> forcing to long [java][4] result is 4 [java][4] arg 4 of signature is float [java][4] class float is primitive numeric [java][4] args is scalar -> forcing to float [java][4] result is 5.0 [java][4] arg 5 of signature is double [java][4] class double is primitive numeric [java][4] args is scalar -> forcing to double [java][4] result is 6.0 [java][4] arg 6 of signature is boolean [java][4] class boolean is primitive bool [java][4] args is scalar -> forcing to bool [java][4] result is true [java][4] arg 7 of signature is char [java][4] class char is primitive char [java][4] args is scalar -> forcing to char [java][4] result is 2 [java][4] arg 8 of signature is java.lang.String [java][4] class java.lang.String is primitive string [java][4] args is scalar -> forcing to java.lang.String [java][4] result is 1000 [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t1212@12152e6 [java][3] InvokePerlMethod argument 1 = 0 [java][3] InvokePerlMethod argument 2 = 0 [java][3] InvokePerlMethod argument 3 = 3 [java][3] InvokePerlMethod argument 4 = 4 [java][3] InvokePerlMethod argument 5 = 5.0 [java][3] InvokePerlMethod argument 6 = 6.0 [java][3] InvokePerlMethod argument 7 = false [java][3] InvokePerlMethod argument 8 = [java][3] InvokePerlMethod argument 9 = 1000 [java][3] exiting InvokePerlMethod [java][4] class java.lang.Byte is primitive numeric [java][4] class java.lang.Short is primitive numeric [java][4] class java.lang.Integer is primitive numeric [java][4] class java.lang.Long is primitive numeric [java][4] class java.lang.Float is primitive numeric [java][4] class java.lang.Double is primitive numeric [java][4] class java.lang.Boolean is primitive bool [java][4] class java.lang.Character is primitive char [java][4] class java.lang.String is primitive string [java][2] callback command: callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [java][3] packet sent (callback) is callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [perl][3] packet recv is callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48 [perl][3] checking if stub is array... [perl][3] perl knows about 't1212' ('main::t1212') [perl][2] creating object in java (main::t1212): [perl][3] returning stub... [perl][2] processing callback main::t121::types(main::t1212=HASH(0x405b203c), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000) [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t1212): [perl][3] deleting object main::t1212=HASH(0x40541d68) 9 (t1212) [perl][3] packet sent is delete_object 9 [java][3] packet recv (callback) is delete_object 9 [java][3] packet is not callback response: delete_object 9 [java][3] packet recv is delete_object 9 [java][3] packet sent is ok undef: [java][3] packet sent (callback) is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [perl][3] packet sent is callback false scalar:49.48.49.56 [java][3] packet recv (callback) is callback false scalar:49.48.49.56 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:49.48.49.56 [perl][3] packet recv is ok scalar:49.48.49.56 not ok 3 # Test 3 got: '1018' (t/12_2_perl_natives.t at line 48) # Expected: '1024' [perl][3] matching arguments to callback_stub() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(1).callback_stub() [perl][3] packet sent is call_method 1 t121 callback_stub () [java][3] packet recv is call_method 1 t121 callback_stub () [java][4] class t121 is reference [java][3] found a callback_stub method [java][3] () = ()? [java][3] has matching signature () [java][3] entering LookupMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] exiting LookupMethod [java][3] entering InvokePerlMethod [java][3] entering GetNativeCaller [java][3] exiting GetNativeCaller [java][3] InvokePerlMethod argument 0 = t121@117a8bd [java][3] exiting InvokePerlMethod [java][2] callback command: callback ::t121 callback null object:0:10:t121 [java][3] packet sent (callback) is callback ::t121 callback null object:0:10:t121 [perl][3] packet recv is callback ::t121 callback null object:0:10:t121 [perl][3] checking if stub is array... [perl][3] perl knows about 't121' ('main::t121') [perl][2] creating object in java (main::t121): [perl][3] returning stub... [perl][2] processing callback main::t121::callback(t121=HASH(0x4056b434)) [perl][3] matching arguments to get_name() [perl][3] match successful: score is 0 [perl][3] perfect match found, aborting search [perl][3] calling object(10).get_name() [perl][3] packet sent is call_method 10 t121 get_name () [java][3] packet recv (callback) is call_method 10 t121 get_name () [java][3] packet is not callback response: call_method 10 t121 get_name () [java][3] packet recv is call_method 10 t121 get_name () [java][4] class t121 is reference [java][3] found a get_name method [java][3] () = ()? [java][3] has matching signature () [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:116.111.116.111 [java][3] packet sent (callback) is ok scalar:116.111.116.111 [perl][3] packet recv is ok scalar:116.111.116.111 [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x4056b548) 10 (t121) [perl][3] packet sent is delete_object 10 [java][3] packet recv (callback) is delete_object 10 [java][3] packet is not callback response: delete_object 10 [java][3] packet recv is delete_object 10 [java][3] packet sent is ok undef: [java][3] packet sent (callback) is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Protocol [perl][3] packet sent is callback false scalar:116.111.116.111 [java][3] packet recv (callback) is callback false scalar:116.111.116.111 [java][4] class java.lang.Object is reference [java][4] class java.lang.String is primitive string [java][3] packet sent is ok scalar:116.111.116.111 [perl][3] packet recv is ok scalar:116.111.116.111 ok 4 [perl][3] getting object count [perl][3] packet sent is obj_cnt [java][3] packet recv is obj_cnt [java][4] class java.lang.Integer is primitive numeric [java][3] packet sent is ok scalar:50 [perl][3] packet recv is ok scalar:50 ok 5 [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t121): [perl][3] deleting object t121=HASH(0x4053f964) 1 (t121) [perl][3] packet sent is delete_object 1 [java][3] packet recv is delete_object 1 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object [perl][4] destroying Inline::Java::Object::Tie [perl][2] destroying object in java (main::t1212): [perl][3] deleting object main::t1212=HASH(0x4055a518) 8 (t1212) [perl][3] packet sent is delete_object 8 [java][3] packet recv is delete_object 8 [java][3] packet sent is ok undef: [perl][3] packet recv is ok undef: [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object::Private [perl][1] killed by natural death. [perl][1] JVM owner exiting... [perl][1] Sending 'die' message to JVM... [perl][4] portable: GOT_SAFE_SIGNALS for hpux is default '1' [perl][1] Sending 15 signal to JVM... [perl][1] Sending 9 signal to JVM... [perl][1] exiting with 0 [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java [perl][4] destroying Inline::Java::Protocol [perl][4] destroying Inline::Java::Object::Private [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java [perl][4] destroying Inline::Java::Object::Tie [perl][4] script marked as DONE, object destruction not propagated to Java # [java][3] packet recv is die [java][1] received a request to die... # #