46 lines
		
	
	
		
			1.0 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			46 lines
		
	
	
		
			1.0 KiB
		
	
	
	
		
			Factor
		
	
	
USING: kernel pcre sequences tools.deploy.backend tools.test ;
 | 
						|
IN: tools.deploy.backend.tests
 | 
						|
 | 
						|
: complete-match? ( str regexp -- ? )
 | 
						|
    "^" "$" surround matches? ;
 | 
						|
 | 
						|
{ t } [
 | 
						|
    { } staging-command-line
 | 
						|
    {
 | 
						|
        "-staging"
 | 
						|
        "-no-user-init"
 | 
						|
        "-pic=0"
 | 
						|
        "-output-image.*"
 | 
						|
        "-include="
 | 
						|
        "-i=boot\\..*"
 | 
						|
    } [ complete-match? ] 2all?
 | 
						|
] unit-test
 | 
						|
 | 
						|
{ t } [
 | 
						|
    { "compiler" } staging-command-line
 | 
						|
    {
 | 
						|
        "-staging"
 | 
						|
        "-no-user-init"
 | 
						|
        "-pic=0"
 | 
						|
        "-output-image=.*"
 | 
						|
        "-include=compiler"
 | 
						|
        "-i=.*"
 | 
						|
        "-resource-path=.*"
 | 
						|
        "-run=tools.deploy.restage"
 | 
						|
    } [ complete-match? ] 2all?
 | 
						|
] unit-test
 | 
						|
 | 
						|
{ t } [
 | 
						|
    "image" "hello-world" "manifest.file" { "foob" } deploy-command-line
 | 
						|
    {
 | 
						|
        "-pic=0"
 | 
						|
        "-i=.*foob.*"
 | 
						|
        "-vocab-manifest-out=manifest.file"
 | 
						|
        "-deploy-vocab=hello-world"
 | 
						|
        "-deploy-config=.*hello-world"
 | 
						|
        "-output-image=image"
 | 
						|
        "-resource-path=.*"
 | 
						|
        "-run=tools.deploy.shaker"
 | 
						|
    } [ complete-match? ] 2all?
 | 
						|
] unit-test
 |