20669456048

Committed 03 Jan 2026 12:21AM UTC coverage: 73.432% (+0.4%) from 72.983%

Build # 20669456048

Build Type

Pull #684

github

Committed by

web-flow

Commit Message

Merge f54a362a7 into 58d740d89

Pull Request Pull Request #684: Add the #silently option of Metacello

Run Details

0 of 1 new or added line in 1 file covered. (0.0%)

3314 of 4513 relevant lines covered (73.43%)

23.31 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/repository/SmalltalkCI-Core.package/SCIMetacelloLoadSpec.class/instance/basicLoadProjectOn..st

executing
basicLoadProjectOn: aSmalltalkCI
        | metacello metacelloPassword metacelloUser |
        
        aSmalltalkCI class requireMetacello.
        self updateMetacelloIfRequested.
        
        metacello := (Smalltalk at: #Metacello) new.
        metacello
                silently;
                repository: (self repository ifNil: [ 
                        self repositoryUrlIn: aSmalltalkCI projectDirectory ]);
                baseline: self baseline;
                configuration: self configuration;
                version: self version.
        ((metacelloUser := self user) isEmptyOrNil and: [(metacelloPassword := self password) isEmptyOrNil]) ifFalse: [
                metacello
                        username: metacelloUser;
                        password: metacelloPassword].
        
        self ignoreImage ifTrue: [
                metacello ignoreImage ].
        self onConflict ifNotNil: [ :selector |
                metacello onConflict: [ :ex :loaded :incoming | ex perform: selector ]].
        self onUpgrade ifNotNil: [ :selector |
                metacello onUpgrade: [ :ex :loaded :incoming | ex perform: selector ]].
        
        metacello copy get.        "compensate for older versions of Metacello"
        self withExceptionHandlerDo: [ 
                aSmalltalkCI performMetacelloLoad: [ 
                        [ metacello load: self load ]
                        on: SCIMetacelloIgnorePackageLoaded
                        do: [ :e | e resume: self ignoreImage ] ] ]

1	executing	×
2	basicLoadProjectOn: aSmalltalkCI	×
3	\| metacello metacelloPassword metacelloUser \|	×
4		×
5	aSmalltalkCI class requireMetacello.	×
6	self updateMetacelloIfRequested.	×
7		×
8	metacello := (Smalltalk at: #Metacello) new.	×
9	metacello	×
NEW 10	silently;	×
11	repository: (self repository ifNil: [	×
12	self repositoryUrlIn: aSmalltalkCI projectDirectory ]);	×
13	baseline: self baseline;	×
14	configuration: self configuration;	×
15	version: self version.	×
16	((metacelloUser := self user) isEmptyOrNil and: [(metacelloPassword := self password) isEmptyOrNil]) ifFalse: [	×
17	metacello	×
18	username: metacelloUser;	×
19	password: metacelloPassword].	×
20		×
21	self ignoreImage ifTrue: [	×
22	metacello ignoreImage ].	×
23	self onConflict ifNotNil: [ :selector \|	×
24	metacello onConflict: [ :ex :loaded :incoming \| ex perform: selector ]].	×
25	self onUpgrade ifNotNil: [ :selector \|	×
26	metacello onUpgrade: [ :ex :loaded :incoming \| ex perform: selector ]].	×
27		×
28	metacello copy get. "compensate for older versions of Metacello"	×
29	self withExceptionHandlerDo: [	×
30	aSmalltalkCI performMetacelloLoad: [	×
31	[ metacello load: self load ]	×
32	on: SCIMetacelloIgnorePackageLoaded	×
33	do: [ :e \| e resume: self ignoreImage ] ] ]	×

hpi-swa / smalltalkCI / 20669456048

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous