# test spiffy_little_function with options 'foo' and 'bar'
<P>
# make test run faster by eliminating slow function call
redefine_function("main::get_huge_list_of_params", sub {} );
<P>
# use minimal constructor 
redefine_function("Foo::new",sub { return bless {},"Foo" });
<P>
# This method should be called with "bar", and return 42, 
# for the purposes of this test.
redefine_function("Foo::compute_result", sub { 42 } );
<P>
$result = spiffy_little_function("foo","bar")
is($result,4.2,"spiffy_little_function:foo bar test");
<P>
restore_all_functions();