#!/usr/bin/env pluvo

% doctest.pvo - Test Code Examples in Documentation
Author: Sean B. Palmer, inamidst.com
WARNING: This code doesn't yet work!

doctest = (filename)
   for (line) <$filename>
      if {/^<pre class="pluvo">/ line}
         block = true
         input = (); output = ()

      elif {/^<\/pre>/ line}
         block = false
         add tests (input output)

      elif block
         if {/^=> / line} { add output {line:3:} }
         else { add input line }

   say "# $filename "
   for (input output) tests
      input = { join "" input }
      output = { join "" output }

      %capture => result
         run input

      if {result == output} { out "." }
      else { out "X"; fail = true }
   say 

   if fail { say "FAIL: $filename" }
   else { say "pass: $filename" }

main = (argv)
   doctest {@args:0}

script main