newspeak/AtomicInstallTestConfiguration.ns at master · Outcue/newspeak · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Newspeak3
'Mirrors'
class AtomicInstallTestConfiguration packageTestsUsing: ideNamespace = (
	(* Test configuration for AtomicInstallTesting *)
|
	AtomicInstaller = ideNamespace AtomicInstaller.
	AtomicInstallTesting = ideNamespace AtomicInstallTesting.
	Mirrors = ideNamespace MirrorsForSqueak.
	|) (
public testModulesUsingPlatform: platform <Platform> minitest: minitest <Minitest> ^ <{AtomicInstallTesting}> = (
	  |
	   mirrors <NewspeakMirrorsForSqueak>
	   installer <AtomicInstaller>
	   compiler <Compiler>
	vmm <VMMirror> = platform squeak VMMirror new.
	  |

	   installer:: AtomicInstaller usingPlatform: platform  vmMirror: vmm.
	   mirrors:: Mirrors usingPlatform: platform vmMirror: vmm.
	   compiler:: mirrors compiler.
		^{AtomicInstallTesting
	   	      usingPlatform: platform
		      testing: installer
		      compiler: compiler
		      mirrors: mirrors
		      testFramework: minitest
		      }.
	)
) : (
)