I can't see why no output lines would show up in stem s. Can you try things like: duplicating line 99 and removing the WITH .. part on the first of the two lines so that we see the output from running the simpler instruction address "" "rexxc" self~q(source~fullName) The resource 'EMPTY 0' is special in that it is completely empty. You could insert a "nop" instruction into the resource and see what happens
On Fri, Dec 7, 2018 at 5:57 PM Jason Martin <agrel...@gmail.com> wrote: > agrellum@openindiana:~$ rexxc qdate.rex legal.rexc > Open Object Rexx Version 5.0.0 > Build date: Dec 7 2018 > Addressing mode: 64 > Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. > Copyright (c) 2005-2018 Rexx Language Association. All rights reserved. > This program and the accompanying materials are made available under the > terms > of the Common Public License v1.0 which accompanies this distribution or at > http://www.oorexx.org/license.html > > > > Add "trace i" line 95 > > > > agrellum@openindiana:~$ cd oorexx-test/ > agrellum@openindiana:~/oorexx-test$ ./testOORexx.rex -R > ooRexx/utilities/rexxc -f rexxc > Searching for test containers.. > Executing automated test suite 96 *-* source = > .TemporaryTestFile~new(self, self~testSource) > >E> .TEMPORARYTESTFILE => "The TEMPORARYTESTFILE class" > >V> SELF => "a rexxc.testGroup" > >A> "a rexxc.testGroup" > >V> SELF => "a rexxc.testGroup" > >M> "TESTSOURCE" => "test_rexxc.rex" > >A> "test_rexxc.rex" > >M> "NEW" => "a TEMPORARYTESTFILE" > >>> "a TEMPORARYTESTFILE" > >=> SOURCE <= "a TEMPORARYTESTFILE" > 97 *-* do resource over .resources > >E> .RESOURCES => "a StringTable" > >K> "OVER" => "a StringTable" > >=> RESOURCE <= "EMPTY 0" > >>> "EMPTY 0" > 98 *-* source~createFromResource(resource) > >V> SOURCE => "a TEMPORARYTESTFILE" > >V> RESOURCE => "EMPTY 0" > >A> "EMPTY 0" > 99 *-* address "" "rexxc" self~q(source~fullName) with output > stem s. error stem e. > >L> "rexxc" > >V> SELF => "a rexxc.testGroup" > >V> SOURCE => "a TEMPORARYTESTFILE" > >M> "FULLNAME" => > "/export/home/agrellum/oorexx-test/ooRexx/utilities/rexxc/test_rexxc.rex" > >A> > "/export/home/agrellum/oorexx-test/ooRexx/utilities/rexxc/test_rexxc.rex" > >M> "Q" => > "/export/home/agrellum/oorexx-test/ooRexx/utilities/rexxc/test_rexxc.rex" > >O> " " => "rexxc > /export/home/agrellum/oorexx-test/ooRexx/utilities/rexxc/test_rexxc.rex" > >>> "rexxc > /export/home/agrellum/oorexx-test/ooRexx/utilities/rexxc/test_rexxc.rex" > >V> S. => "S." > >K> "OUTPUT" => "S." > >V> E. => "E." > >K> "ERROR" => "E." > 100 *-* self~assertRc(0, rc, "'"resource"' Rexx code expected to > compile with rc 0") > >V> SELF => "a rexxc.testGroup" > >L> "0" > >A> "0" > >V> RC => "0" > >A> "0" > >L> "'" > >V> RESOURCE => "EMPTY 0" > >O> "" => "'EMPTY 0" > >L> "' Rexx code expected to compile with rc 0" > >O> "" => "'EMPTY 0' Rexx code expected to compile with rc 0" > >A> "'EMPTY 0' Rexx code expected to compile with rc 0" > 101 *-* self~assertTrue(s.0 > 0, "rexxc" self~testSource "is > expected to produce a few lines of output") > >V> SELF => "a rexxc.testGroup" > >C> S.0 => "S.0" > >V> S.0 => "0" > >L> "0" > >O> ">" => "0" > >A> "0" > >L> "rexxc" > >V> SELF => "a rexxc.testGroup" > >M> "TESTSOURCE" => "test_rexxc.rex" > >O> " " => "rexxc test_rexxc.rex" > >L> "is expected to produce a few lines of output" > >O> " " => "rexxc test_rexxc.rex is expected to produce a > few lines of output" > >A> "rexxc test_rexxc.rex is expected to produce a few lines > of output" > .. > > ooTest Framework - Automated Test of the ooRexx Interpreter > > Interpreter: REXX-ooRexx_5.0.0(MT)_64-bit 6.05 7 Dec 2018 > OS Name: SUNOS > SysVersion: SunOS illumos-3e90f8d31d.5.11 > > Tests ran: 12 > Assertions: 15 > Failures: 3 > Errors: 0 > > [failure] [20181207 11:51:50.293284] > svn: r11562 Change date: 2018-12-03 23:45:29 +0100 > Test: TEST_REXXC_ONE_ARG > Class: rexxc.testGroup > File: /export/home/agrellum/.../ooRexx/utilities/rexxc/rexxc.testGroup > Line: 101 > Failed: assertTrue > Expected: [1] > Actual: [[0], identityHash="-7113985"] > Message: rexxc test_rexxc.rex is expected to produce a few lines > of output > > [failure] [20181207 11:51:50.450079] > svn: r11562 Change date: 2018-12-03 23:45:29 +0100 > Test: TEST_REXXC_ONE_ARG_SYNTAX > Class: rexxc.testGroup > File: /export/home/agrellum/.../ooRexx/utilities/rexxc/rexxc.testGroup > Line: 91 > Failed: assertTrue > Expected: [1] > Actual: [[0], identityHash="-7113985"] > Message: rexxc is expected to produce a few lines of output > > [failure] [20181207 11:51:50.515345] > svn: r11562 Change date: 2018-12-03 23:45:29 +0100 > Test: TEST_REXXC_TWO_ARGS > Class: rexxc.testGroup > File: /export/home/agrellum/.../ooRexx/utilities/rexxc/rexxc.testGroup > Line: 126 > Failed: assertTrue > Expected: [1] > Actual: [[0], identityHash="-7113985"] > Message: a few lines of output expected from rexxc 'EMPTY 0' > > File search: 00:00:00.003768 > Suite construction: 00:00:00.000696 > Test execution: 00:00:00.309411 > Total time: 00:00:01.006344 > > > > _______________________________________________ > Oorexx-devel mailing list > Oorexx-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/oorexx-devel >
_______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel
