view release on metacpan or  search on metacpan

t/froodydoc_wiky_js.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use warnings;
use Test::More;
use Test::Differences;
use FindBin qw/$Bin/;
use File::Spec::Functions 'catfile';

eval { require JavaScript::Standalone };
plan skip_all => "froodydoc.js needs JavaScript::Standalone" if $@; 

plan tests => 1;

my $bin_script = catfile($Bin, qw/.. bin froodydoc.js/);

# ./lib needs to be in the inc path - FOR THE $bin_script process. so set $ENV{PERL5LIB}
$ENV{PERL5LIB} = join(":", $ENV{PERL5LIB}||'', catfile($Bin, qw/.. lib/) );

open WIKY, "$bin_script --wiky Froody::API::Reflection|" or die "Unable to open froodydoc.js pipe for reading: $!";

{ local $/;
eq_or_diff <WIKY>, <DATA>, "Wiky matches";
}

__DATA__
= froody.reflection.getMethodInfo =

Returns information for a given froody API method. As long as there is a method matching the given method_name, returns description and usage of that method in xml. 

== Arguments ==

[|Name|Type|Description|Required|
|method_name|string|The name of the method to fetch information for.|required|]

== Response ==

[%
<response>
  <method name="froody.fakeMethod" needslogin="1">
    <description>A fake method</description>
    <response>xml-response-example</response>
    <arguments>
      <argument name="color" optional="1" type="scalar">Your favorite color.</argument>
      <argument name="fleece" optional="0" type="csv">Your happy fun clothing of choice.</argument>
    </arguments>
    <errors>
      <error code="1" message="it would be bad">Don't cross the streams.</error>
      <error code="1" message="it would be bad">Don't cross the streams.</error>
    </errors>
  </method>
</response>
%]

== Errors ==

* *froody.error.notfound.method* - Method not found\\
\\
The requested method was not found.

= froody.reflection.getMethods =

Returns a list of available froody API methods.

== Arguments ==