help.tutorial: use arrays for test output in first-program.
parent
dadff2f062
commit
463b57f7c9
|
@ -105,8 +105,8 @@ $nl
|
||||||
$nl
|
$nl
|
||||||
"Add the following two lines to " { $snippet "palindrome-tests.factor" } ":"
|
"Add the following two lines to " { $snippet "palindrome-tests.factor" } ":"
|
||||||
{ $code
|
{ $code
|
||||||
"[ f ] [ \"hello\" palindrome? ] unit-test"
|
"{ f } [ \"hello\" palindrome? ] unit-test"
|
||||||
"[ t ] [ \"racecar\" palindrome? ] unit-test"
|
"{ t } [ \"racecar\" palindrome? ] unit-test"
|
||||||
}
|
}
|
||||||
$nl
|
$nl
|
||||||
"Now, you can run unit tests:"
|
"Now, you can run unit tests:"
|
||||||
|
@ -115,9 +115,9 @@ $nl
|
||||||
"It should report that all your tests have been run and there were no test failures, displaying the following output:"
|
"It should report that all your tests have been run and there were no test failures, displaying the following output:"
|
||||||
$nl
|
$nl
|
||||||
{ $snippet
|
{ $snippet
|
||||||
"Unit Test: { [ f ] [ \"hello\" palindrome? ] }"
|
"Unit Test: { { f } [ \"hello\" palindrome? ] }"
|
||||||
"\n"
|
"\n"
|
||||||
"Unit Test: { [ t ] [ \"racecar\" palindrome? ] }"
|
"Unit Test: { { t } [ \"racecar\" palindrome? ] }"
|
||||||
}
|
}
|
||||||
$nl
|
$nl
|
||||||
"Now you can read about " { $link "first-program-extend" } "." ;
|
"Now you can read about " { $link "first-program-extend" } "." ;
|
||||||
|
|
Loading…
Reference in New Issue