From: Holger Hans Peter Freyther <[email protected]> Looking at the result of the STClassLoader in VisualGST created a DNU. Add an >>#article to the LoadedBehavior class.
2012-09-09 Holger Freyther <[email protected]> * tests/stcompiler.st: Add testcase for article. * tests/stcompiler.ok: Update the test result. 2012-09-09 Holger Freyther <[email protected]> * STLoaderObjs.st: Add LoadedBehavior>>#article. --- ChangeLog | 5 +++++ packages/stinst/parser/ChangeLog | 4 ++++ packages/stinst/parser/STLoaderObjs.st | 4 ++++ tests/stcompiler.ok | 3 +++ tests/stcompiler.st | 8 ++++++++ 5 files changed, 24 insertions(+) diff --git a/ChangeLog b/ChangeLog index 4c8caff..7353dcc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2012-09-09 Holger Freyther <[email protected]> + * tests/stcompiler.st: Add testcase for article. + * tests/stcompiler.ok: Update the test result. + +2012-09-09 Holger Freyther <[email protected]> + * kernel/Delay.st: Name the delay process. 2012-09-09 Holger Freyther <[email protected]> diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog index ee88420..c49df53 100644 --- a/packages/stinst/parser/ChangeLog +++ b/packages/stinst/parser/ChangeLog @@ -1,3 +1,7 @@ +2012-09-09 Holger Freyther <[email protected]> + + * STLoaderObjs.st: Add LoadedBehavior>>#article. + 2011-11-10 Gwenael Casaccio <[email protected]> Paolo Bonzini <[email protected]> diff --git a/packages/stinst/parser/STLoaderObjs.st b/packages/stinst/parser/STLoaderObjs.st index 7fd4114..99688ce 100644 --- a/packages/stinst/parser/STLoaderObjs.st +++ b/packages/stinst/parser/STLoaderObjs.st @@ -977,6 +977,10 @@ instanceVariableNames: ivn superclass ^superclass +! + +article + ^superclass article ! ! !LoadedMetaclass methodsFor: 'printing'! diff --git a/tests/stcompiler.ok b/tests/stcompiler.ok index a07cebc..f3acb52 100644 --- a/tests/stcompiler.ok +++ b/tests/stcompiler.ok @@ -44,3 +44,6 @@ returned value is TextCollector new "<0>" Execution begins... returned value is OrderedSet new: 32 "<0>" + +Execution begins... +returned value is 'an' diff --git a/tests/stcompiler.st b/tests/stcompiler.st index 7144867..ef44d8d 100644 --- a/tests/stcompiler.st +++ b/tests/stcompiler.st @@ -90,3 +90,11 @@ asParser with: STInST.SqueakFileInParser. ] +Eval [ + | classes | + + classes := STInST.STClassLoader new + parseSmalltalkStream: 'Object subclass: Foo []' readStream + with: STInST.GSTFileInParser. + classes first article +] -- 1.7.10.4 _______________________________________________ help-smalltalk mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk
