File indexing completed on 2024-05-19 04:38:18

 
 # BEGIN: TestRocket code
 module TestRocket
   extend Module.new { attr_accessor :out }
 
   def _test(a, b); send((call rescue()) ? a : b); end
 
   def +@; _show _test :_pass, :_fail end
   def -@; _show _test :_fail, :_pass end
   def ~@; _show _pend;               end
   def !@; _show _desc;               end
 
   def _show(r); (TestRocket.out || $>) << r; r end
   def _pass; "     OK\n"; end
   def _fail; "   FAIL @ #{source_location * ':'}\n"; end
   def _pend; "PENDING '#{call}' @ #{source_location * ':'}\n"; end
   def _desc; "   FIRE '#{call}'!\n"; end
 end
 
 Proc.send :include, TestRocket
 
 +-> { Die.new(2) }
 --> { raise }
 +-> { 2 + 2 == 4 }
 +-> { raise }
 --> { true }
 ~-> { "this is a pending test" }
 !-> { "use this for descriptive output and to separate your test parts" }
 # END: TestRocket code
 
 class MagicString < String
   def +@
     upcase
   end
 
   def !
     swapcase
   end
 end
 
 str = MagicString.new("This is my string!")
 p +str         # => "THIS IS MY STRING!"
 p !str         # => "tHIS IS MY STRING!"
 p -str