Jump to content

Test a function: Difference between revisions

Test a function (view source)

Revision as of 07:54, 4 December 2016

80 bytes removed ,  7 years ago
m
→‎{{header|zkl}}: tweak
(→‎{{header|Go}}: Add Fortran.)
Line 1,626:
=={{header|zkl}}==
<lang zkl>fcn pali(text){
if (text.len() < 2) return(False);
text==text.reverse();
[0..text.len()/2].filter1('wrap(n){text[n] != text[-n-1]}) :
return(_ == False);
}</lang>
<lang zkl>tester:=TheVault.Test.UnitTester.UnitTester();
tester.testRun(pali.fp("red rum sir is murder"), Void,False); // spaces make this not a palindrome</lang>
Need to create a closure (.fp) so the unit test is what runs the test function and can catch any errors the test function throws.
{{output}}
<pre>
Line 1,641 ⟶ 1,640:
<lang zkl>tester:=TheVault.Test.UnitTester.UnitTester();
fcn pali(text){
if (text.len() < 2) return(False);
text==text.reverse();
[0..text.len()/2].filter1('wrap(n){text[n] != text[-n-1]}) :
return(_ == False);
}
tester.testRun(pali.fp("red rum sir is murder" - " "), Void,True,__LINE__);
tester.testRun(pali.fp("red rum sir is murder"), Void,True,__LINE__); //wrongbad test
tester.testSrc("var R=(1+2)",Void,Void,3,__LINE__); // you can test source too
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/112605"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information