Source

newspeak / VCSTestingConfiguration.ns3

The default branch has multiple heads

Full commit
Newspeak3
'StructuredVCS'

class VCSTestingConfiguration packageTestsUsing: ideNamespace = (|
private VCSTesting  = ideNamespace VCSTesting.
private VCS =  ideNamespace StructuredVCS VCS.
private VCSSourceMirrors =  ideNamespace StructuredVCS VCSSourceMirrors.
private VCSSourceControlLauncher = ideNamespace StructuredVCS VCSSourceControlLauncher.
private VCSMercurialBackendProvider = ideNamespace StructuredVCS VCSMercurialBackendProvider.
private VCSGitBackendProvider = ideNamespace StructuredVCS VCSGitBackendProvider.
private VCSSubversionBackendProvider = ideNamespace StructuredVCS VCSSubversionBackendProvider.
|)
('as yet unclassified'
buildVCSUsing: platform = (

	| launcher |
	launcher:: VCSSourceControlLauncher usingPlatform: platform.
	^ launcher buildVCS
)

testModulesUsingPlatform: platform minitest: minitest ^ <{MirrorTesting}> = (
	|
	vcs
	|
      vcs:: buildVCSUsing: platform.
	   ^{VCSTesting 
			usingPlatform: platform 
			module: vcs
			backendProvider: VCSMercurialBackendProvider
			testFramework: minitest.
		VCSTesting 
			usingPlatform: platform 
			module: vcs
			backendProvider: VCSGitBackendProvider
			testFramework: minitest."
		VCSTesting 
			usingPlatform: platform 
			module: vcs
			backendProvider: VCSSubversionBackendProvider
			testFramework: minitest "
		}
)

)