(phixonline)-->
 <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
 <span style="color: #7060A8;">requires</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"0.8.2"</span><span style="color: #0000FF;">)</span>

 <span style="color: #008080;">function</span> <span style="color: #000000;">is_palindrome</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
     <span style="color: #008080;">return</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">==</span><span style="color: #7060A8;">reverse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
 <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>

 <span style="color: #000080;font-style:italic;">--set_test_verbosity(TEST_QUIET)                -- default, no output when third call removed
 --set_test_verbosity(TEST_SUMMARY)              -- first and last line only [w or w/o ""]
 --set_test_verbosity(TEST_SHOW_FAILED)          -- first and last two lines only</span>
 <span style="color: #7060A8;">set_test_verbosity</span><span style="color: #0000FF;">(</span><span style="color: #004600;">TEST_SHOW_ALL</span><span style="color: #0000FF;">)</span>               <span style="color: #000080;font-style:italic;">-- as shown in last two cases below

 --set_test_abort(TEST_ABORT)                    -- abort(1) on failure, after showing the summary
 --set_test_abort(TEST_QUIET)                    -- quietly carry on, the default
 --set_test_abort(TEST_CRASH)                    -- abort immmediately on failure (w/o summary)

 --set_test_pause(TEST_PAUSE_FAIL)               -- pause on failure, the default
 --set_test_pause(TEST_QUIET)                    -- disable pause on failure
 --set_test_pause(TEST_PAUSE)                    -- always pause</span>

 <span style="color: #7060A8;">set_test_module</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"palindromes"</span><span style="color: #0000FF;">)</span>                  <span style="color: #000080;font-style:italic;">-- optional, w/o first line is omitted</span>

 <span style="color: #7060A8;">test_true</span><span style="color: #0000FF;">(</span><span style="color: #000000;">is_palindrome</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"abba"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"abba"</span><span style="color: #0000FF;">)</span>
 <span style="color: #7060A8;">test_true</span><span style="color: #0000FF;">(</span><span style="color: #000000;">is_palindrome</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"abba"</span><span style="color: #0000FF;">))</span>                <span style="color: #000080;font-style:italic;">-- no desc makes success hidden...
                                                 -- ...and failure somewhat laconic</span>
 <span style="color: #7060A8;">test_false</span><span style="color: #0000FF;">(</span><span style="color: #000000;">is_palindrome</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"abc"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"not abc"</span><span style="color: #0000FF;">)</span>
 <span style="color: #7060A8;">test_true</span><span style="color: #0000FF;">(</span><span style="color: #000000;">is_palindrome</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"failure"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"failure"</span><span style="color: #0000FF;">)</span>

 <span style="color: #7060A8;">test_summary</span><span style="color: #0000FF;">()</span>
<!--