>On Sun, 5 Sep 1999, Randolph S. Kahle wrote:
>
> > Hello. I am new to Jacl and I am trying to build the latest release, but I
> > am running into a number of problems. I don't know if I have "operator
> > error", "configuration errors" or if I'm turning up real bugs.
> >
> > I am on WindowsNT 4.0 SP4 using MS VC++ v 4.0.
> >
> > When, from c:/jacl1.2.4/win, I type:
> >
> > nmake -f makefile.vc
> >
> > The make completes without problems.
> >
> > when I run
> >
> > nmake -f makefile.vc test
>
>Are you using the Sun JDK, the IBM JDK, or a JDK from someone else?
>
> > Under both JDK1.1.7 and JDK1.1.8 the suite fails on
> tcljava/JavaLoadCmd.test
> >
> > I get an error:
>
>This looks like a JVM bug. No Java program should be able to produce an
>error like this in The JVM. You might want to disable the jit compiler
>to see if that fixes the error. There should be a JAVA_FLAGS variable
>that you can set to -Djava.compiler= which will turn off the JIT
>compiler.
Thanks for the tip about the JIT. I made this change and now the tests run.
I get the following errors from the test run using Sun's JDK 1.1.8
production release:
cd C:\jacl1.2.4\win
set
CLASSPATH=C:\jacl1.2.4\win\tests;C:\jacl1.2.4\win\jacl.jar;C:\jacl1.2.4\win\
tcljava.jar;C:\jdk1.1.8\lib\classes.zip;.
C:\jdk1.1.8\bin\java
-Djava.compiler= -DBUILD_DIR=C:\jacl1.2.4\win -DJAVA=C:\jdk1.1.8\bin\java
tcl.lang.Shell C:\TEMP\nma00261.
pwd is C:/jacl1.2.4/tests
CLASSPATH is
C:\jacl1.2.4\win\tests;C:\jacl1.2.4\win\jacl.jar;C:\jacl1.2.4\win\tcljava.ja
r;C:\jdk1.1.8\lib\classes.zip;.;C:\jdk1.1.8\bin\..\classes;C:\jdk1.1.8\bin\.
.\lib\classes.zip;C:\jdk1.1.8\bin\..\lib\classes.jar;C:\jdk1.1.8\bin\..\lib\
rt.jar;C:\jdk1.1.8\bin\..\lib\i18n.jar
auto_path is C:/jacl1.2.4/win resource:/tcl/lang/library
tcljava/ArrayObject.test
tcljava/AutomaticSignature.test
tcljava/BeanEvent.test
tcljava/BeanEventMgr.test
tcljava/ClassRep.test
tcljava/FieldSig.test
tcljava/FuncSig.test
tcljava/JavaBindCmd.test
tcljava/JavaCallCmd.test
tcljava/JavaCastCmd.test
tcljava/JavaDefineClassCmd.test
tcljava/JavaEventCmd.test
tcljava/JavaFieldCmd.test
tcljava/JavaImportCmd.test
tcljava/JavaInfoCmd.test
==== javaInfoCmd-6.3 fields
==== Contents of test case:
list [catch {java::info fields junk1 junk2} msg] $msg
==== Result was:
1 {bad option "junk1": must be -type or -static}
---- Result should have been:
1 {bad option "junk1": must be -type, or -static}
---- javaInfoCmd-6.3 FAILED
==== javaInfoCmd-7.3 methods
==== Contents of test case:
list [catch {java::info methods junk1 junk2 junk3} msg] $msg
==== Result was:
1 {bad option "junk1": must be -type or -static}
---- Result should have been:
1 {bad option "junk1": must be -type, or -static}
---- javaInfoCmd-7.3 FAILED
==== javaInfoCmd-7.8 methods -static
==== Contents of test case:
list [catch {java::info methods -static junk1 junk2} msg] $msg
==== Result was:
1 {bad option "junk1": must be -type or -static}
---- Result should have been:
1 {bad option "junk1": must be -type, or -static}
---- javaInfoCmd-7.8 FAILED
==== javaInfoCmd-7.15 methods -type
==== Contents of test case:
list [catch {java::info methods -type junk1 junk2} msg] $msg
==== Result was:
1 {bad option "junk1": must be -type or -static}
---- Result should have been:
1 {bad option "junk1": must be -type, or -static}
---- javaInfoCmd-7.15 FAILED
tcljava/JavaInstanceofCmd.test
tcljava/JavaInvoke.test
tcljava/JavaIsNullCmd.test
tcljava/JavaLoadCmd.test
tcljava/JavaLock.test
tcljava/JavaNewCmd.test
tcljava/JavaNullCmd.test
tcljava/JavaPropCmd.test
tcljava/JavaThrowCmd.test
tcljava/JavaTryCmd.test
tcljava/PkgInvoker.test
tcljava/PropertySig.test
tcljava/ReflectException.test
tcljava/ReflectObject.test
tcljava/TclEvent.test
jacl/FileCmd.test
fconfigure command not implemented yet
jacl/IdleHandler.test
jacl/Interp.test
==== Interp-1.2 dispose, variables are freed
==== Contents of test case:
set interp [java::new tcl.lang.Interp]
$interp eval {
set x 10
set y 10
set z 10
}
set tr [java::new tests.VarTraceTest {}]
set list ""
lappend list [lsort [[java::field $tr varsCalled] toString]]
$interp traceVar x [java::null] $tr [java::field tcl.lang.TCL
TRACE_UNSETS]
$interp traceVar y [java::null] $tr [java::field tcl.lang.TCL
TRACE_UNSETS]
$interp traceVar z [java::null] $tr [java::field tcl.lang.TCL
TRACE_UNSETS]
$interp dispose
lappend list [lsort [[java::field $tr varsCalled] toString]]
set list
==== Result was:
{} {::x(null) ::y(null) ::z(null)}
---- Result should have been:
{} {x(null) y(null) z(null)}
---- Interp-1.2 FAILED
jacl/Notifier.test
tcl/append.test
tcl/assocd.test
tcl/case.test
tcl/CdCmd.test
tcl/clock.test
==== clock-3.7 clock format tests
==== Contents of test case:
list [catch {clock format 123 -bad arg} msg] $msg
==== Result was:
1 {bad switch "-bad": must be -format or -gmt}
---- Result should have been:
1 {bad switch "-bad": must be -format, or -gmt}
---- clock-3.7 FAILED
==== clock-4.9 clock scan tests
==== Contents of test case:
list [catch {clock scan "Jan 12" -bad arg} msg] $msg
==== Result was:
1 {bad switch "-bad": must be -base or -gmt}
---- Result should have been:
1 {bad switch "-bad": must be -base, or -gmt}
---- clock-4.9 FAILED
tcl/concat.test
tcl/error.test
==== error-1.3 simple errors from commands
==== Contents of test case:
catch {format [string index]} b
set errorInfo
==== Result was:
wrong # args: should be "string index string charIndex"
while executing
"string index"
invoked from within
"format [string index]"
---- Result should have been:
wrong # args: should be "string index string charIndex"
while executing
"string index"
---- error-1.3 FAILED
==== error-2.3 errors in nested procedures
==== Contents of test case:
catch foo b
set errorInfo
==== Result was:
Human-generated
while executing
"error {Human-generated}
"
(procedure "foo" line 4)
invoked from within
"foo"
---- Result should have been:
Human-generated
while executing
"error {Human-generated}"
(procedure "foo" line 4)
invoked from within
"foo"
---- error-2.3 FAILED
==== error-2.6 errors in nested procedures
==== Contents of test case:
catch foo2 b
set errorInfo
==== Result was:
glorp2
while executing
"error glorp2"
invoked from within
"format [error glorp2]"
(procedure "foo2" line 1)
---- Result should have been:
glorp2
while executing
"error glorp2"
(procedure "foo2" line 3)
invoked from within
"foo2"
---- error-2.6 FAILED
tcl/eval.test
tcl/expr.test
This application hasn't been compiled with the "T1" and
"T2" math functions, so I'll skip some of the expr tests.
==== expr-23.8 double quotes
==== Contents of test case:
list [catch {expr {"12398712938788234-1298379" != ""}} msg] $msg
==== Result was:
1 {integer value too large to represent}
---- Result should have been:
0 1
---- expr-23.8 FAILED
tcl/FileCmd.test
tcl/fileName.test
==== filename-11.2 Tcl_GlobCmd
==== Contents of test case:
list [catch {glob -gorp} msg] $msg
==== Result was:
1 {bad switch "-gorp": must be -nocomplain or --}
---- Result should have been:
1 {bad switch "-gorp": must be -nocomplain, or --}
---- filename-11.2 FAILED
==== filename-11.3 Tcl_GlobCmd
==== Contents of test case:
list [catch {glob -nocomplai} msg] $msg
==== Result was:
1 {bad switch "-nocomplai": must be -nocomplain or --}
---- Result should have been:
1 {bad switch "-nocomplai": must be -nocomplain, or --}
---- filename-11.3 FAILED
tcl/for.test
tcl/foreach.test
tcl/format.test
tcl/get.test
tcl/if.test
==== if-5.1 true and false
==== Contents of test case:
set bool true
set result 0
if {1 && $bool} {
set result 1
}
set result
==== Test generated error:
can't use non-numeric string as operand of "&&"
==== if-5.1 true and false
==== Contents of test case:
set bool false
set result 0
if {1 && $bool} {
set result 1
}
set result
==== Test generated error:
can't use non-numeric string as operand of "&&"
tcl/incr.test
tcl/info.test
==== info-5.39 info complete option
==== Contents of test case:
info complete " # \{"
==== Result was:
0
---- Result should have been:
1
---- info-5.39 FAILED
==== info-5.40 info complete option
==== Contents of test case:
info complete "foo bar;# \{"
==== Result was:
0
---- Result should have been:
1
---- info-5.40 FAILED
fconfigure command not implemented yet
tcl/join.test
tcl/lindex.test
tcl/linsert.test
tcl/list.test
tcl/llength.test
tcl/lrange.test
tcl/lreplace.test
tcl/LsearchCmd.test
tcl/lsort.test
tcl/namespace-old.test
tcl/namespace.test
tcl/parse.test
tcl/parseOld.test
tcl/pkg.test
tcl/proc.test
tcl/Procedure.test
tcl/PwdCmd.test
tcl/regexp.test
tcl/RegexpCmd.test
tcl/rename.test
tcl/ReturnCmd.test
tcl/scan.test
tcl/set.test
tcl/split.test
tcl/string.test
tcl/subst.test
tcl/SwitchCmd.test
tcl/Trace.test
tcl/unknown.test
tcl/UpdateCmd.test
tcl/uplevel.test
tcl/upvar.test
tcl/var.test
tcl/while.test
Tests done.
----------------------------------------------------------------
The TclJava mailing list is sponsored by WebNet Technologies.
To subscribe: send mail to [EMAIL PROTECTED]
with the word SUBSCRIBE as the subject.
To unsubscribe: send mail to [EMAIL PROTECTED]
with the word UNSUBSCRIBE as the subject.
To send to the list, send email to '[EMAIL PROTECTED]'.
A list archive is at: http://www.findmail.com/listsaver/tcldallas/
