76 lines
1.9 KiB
Text
76 lines
1.9 KiB
Text
-cases [Inweb] 'inweb/Tests/Test Cases'
|
|
-cases [Painter] 'inweb/Tests/Test Painter'
|
|
-cases [Tree] 'inweb/Tests/Test Weave Tree'
|
|
|
|
-recipe [Inweb]
|
|
set: $INWEB = inweb/Tangled/inweb
|
|
set: $INTERNAL = Internal
|
|
|
|
set: $WEB = $PATH/$CASE.inweb
|
|
mkdir: $PATH/_Tangled_Actual
|
|
mkdir: $PATH/_Tangled_Ideal
|
|
mkdir: $PATH/_Tangled_Console
|
|
set: $TA = $PATH/_Tangled_Actual/$CASE.txt
|
|
set: $TI = $PATH/_Tangled_Ideal/$CASE.txt
|
|
set: $TC = $PATH/_Tangled_Console/$CASE.txt
|
|
step: $INWEB $WEB -tangle-to $TA >$TC 2>&1
|
|
or: 'failed inweb' $TC
|
|
show: $TA
|
|
match text: $TA $TI
|
|
or: 'produced the wrong tangled code'
|
|
|
|
mkdir: $PATH/_Scan_Actual
|
|
mkdir: $PATH/_Scan_Ideal
|
|
set: $SA = $PATH/_Scan_Actual/$CASE.txt
|
|
set: $SI = $PATH/_Scan_Ideal/$CASE.txt
|
|
step: $INWEB $WEB -scan >$SA 2>&1
|
|
or: 'failed inweb' $SA
|
|
show: $SA
|
|
match text: $SA $SI
|
|
or: 'produced the wrong scan'
|
|
|
|
pass: 'passed'
|
|
|
|
-end
|
|
|
|
-recipe [Painter]
|
|
set: $INWEB = inweb/Tangled/inweb
|
|
set: $LANGUAGES = inweb/Dialects
|
|
set: $INTERNAL = Internal
|
|
|
|
set: $CANVAS = $PATH/$CASE.txt
|
|
mkdir: $PATH/_Results_Actual
|
|
mkdir: $PATH/_Results_Ideal
|
|
mkdir: $PATH/_Results_Console
|
|
set: $A = $PATH/_Results_Actual/$CASE.txt
|
|
set: $I = $PATH/_Results_Ideal/$CASE.txt
|
|
step: $INWEB -locale console=utf-8 -test-language-on $CANVAS -test-language $LANGUAGES/$CASE.ildf >$A 2>&1
|
|
or: 'failed inweb' $A
|
|
show: $A
|
|
match text: $A $I
|
|
or: 'produced the wrong painting'
|
|
|
|
pass: 'passed'
|
|
|
|
-end
|
|
|
|
-recipe [Tree]
|
|
set: $INWEB = inweb/Tangled/inweb
|
|
set: $LANGUAGES = inweb/Dialects
|
|
set: $INTERNAL = Internal
|
|
|
|
mkdir: $PATH/_Results_Actual
|
|
mkdir: $PATH/_Results_Ideal
|
|
mkdir: $PATH/_Results_Console
|
|
set: $A = $PATH/_Results_Actual/$CASE.txt
|
|
set: $I = $PATH/_Results_Ideal/$CASE.txt
|
|
set: $C = $PATH/_Results_Console/$CASE.txt
|
|
step: $INWEB $PATH/variations -weave S/$CASE -weave-as TestingInweb -weave-to $A >$C 2>&1
|
|
or: 'failed inweb' $C
|
|
show: $A
|
|
match text: $A $I
|
|
or: 'produced the wrong weave tree'
|
|
|
|
pass: 'passed'
|
|
|
|
-end
|