Skip to content

Set the namespace of TestResource to Smalltalk.SUnit #17

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Set the namespace of TestResource to Smalltalk.SUnit #17

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2db4d21
Exclude methods defined in traits from export
Oct 23, 2018
a951184
Set the namespace of TestResource to Smalltalk.SUnit
Oct 23, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/Pharo2VW-Tests/Pharo2VWExporterTest.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -81,7 +81,7 @@ Pharo2VWExporterTest >> testExampleExportLan [
Pharo2VWExporterTest >> testExampleExportPackageBasicClasses [
| inst classes |
inst := Pharo2VWExamples new.
classes := (inst exampleExportPackageBasic) classes.
classes := (inst exampleExportPackageBasic) classes select: #isClass.
self parseGeneratedXML.
self
assert: (self xPathFor: '//class') size
Expand Down
13 changes: 7 additions & 6 deletions src/Pharo2VW/Pharo2VW.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -165,9 +165,10 @@ Pharo2VW >> fileOutInitializerForClass: aClass [
]

{ #category : #export }
Pharo2VW >> fileOutInitializers [
(self classes select: [:c | c class includesSelector: #initialize])
do: [:class | self fileOutInitializerForClass: class].
Pharo2VW >> fileOutInitializers [
(self classes
select: [ :c | c isClass and: [ c class includesSelector: #initialize ] ])
do: [ :class | self fileOutInitializerForClass: class ]
]

{ #category : #export }
Expand Down Expand Up @@ -293,9 +294,9 @@ Pharo2VW >> methods [
self packagesTags do: [ :pkg |
methods addAll: (pkg package extensionsForTag: pkg).
pkg classes do: [ :cls |
cls isTrait ifFalse: [
methods addAll: cls class methods ].
methods addAll: cls methods ] ].
cls isClass ifTrue: [
methods addAll: cls class methods.
methods addAll: cls methods ] ] ].
methods ].
]

Expand Down
7 changes: 4 additions & 3 deletions src/Pharo2VW/Pharo2VWClassNameMapper.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,9 +28,10 @@ Pharo2VWClassNameMapper >> at: class putNamespace: namespace [
{ #category : #accessing }
Pharo2VWClassNameMapper >> classNameMapping [
^ classNameMapping ifNil: [ classNameMapping :=
{TestCase -> ('Smalltalk.SUnit'->'TestCase').
Object -> ('Core'->'Object').
TBehavior -> ('Core'->'Behavior').
{TestCase -> ('Smalltalk.SUnit' -> 'TestCase').
TestResource -> ('Smalltalk.SUnit' -> 'TestResource').
Object -> ('Core' -> 'Object').
TBehavior -> ('Core' -> 'Behavior').
Color -> ('Core'->'ColorValue').
RBProgramNodeVisitor -> ('Refactory.Browser' -> 'RBProgramNodeVisitor').
} asDictionary]
Expand Down