view release on metacpan or  search on metacpan

t/02_plugins.t  view on Meta::CPAN

|  Text  |   +-------+    |diagram|
|Document|   |!magic!|    |       |
|     {d}|   |       |    |       |
+---+----+   +-------+    +-------+
    :                         ^
    |       Lots of work      |
    \-------------------------+
~~~~';
        $obj    = App::Basis::ConvertText2::Plugin::Ditaa->new();
        $params = undef;
        $out    = $obj->process( 'ditaa', $content, $params, $TEST_DIR );
        ok( has_file($out), 'ditaa created a file' );

        # graphviz
        $content = 'graph G {
    run -- intr;
    intr -- runbl;
    runbl -- run;
    run -- kernel;
    kernel -- zombie;
    kernel -- sleep;
    kernel -- runmem;
    sleep -- swap;
    swap -- runswap;
    runswap -- new;
    runswap -- runmem;
    new -- runmem;
    sleep -- runmem;
}
';
        $obj    = App::Basis::ConvertText2::Plugin::Graphviz->new();
        $params = undef;
        $out    = $obj->process( 'graphviz', $content, $params, $TEST_DIR );
        ok( has_file($out), 'graphviz created a file' );

        # mscgen
        $content = '# Fictional client-server protocol
msc {
 arcgradient = 8;

 a [label="Client"],b [label="Server"];

 a=>b [label="data1"];
 a-xb [label="data2"];
 a=>b [label="data3"];
 a<=b [label="ack1, nack2"];
 a=>b [label="data2", arcskip="1"];
 |||;
 a<=b [label="ack3"];
 |||;
}
';
        $obj    = App::Basis::ConvertText2::Plugin::Mscgen->new();
        $params = undef;
        $out    = $obj->process( 'mscgen', $content, $params, $TEST_DIR );
        ok( has_file($out), 'mscgen created a file' );

        # uml
        $content = "'start/enduml tags are optional
\@startuml
skinparam backgroundcolor AntiqueWhite
left to right direction
skinparam packageStyle rect
actor customer
actor clerk
rectangle checkout {
  customer -- (checkout)
  (checkout) .> (payment) : include
  (help) .> (checkout) : extends
  (checkout) -- clerk
}
\@enduml";
        $obj    = App::Basis::ConvertText2::Plugin::Uml->new();
        $params = undef;
        $out    = $obj->process( 'uml', $content, $params, $TEST_DIR );
        ok( has_file($out), 'uml created a file' );

        # gle
        $content = 'size 10 9
set font texcmr hei 0.5 just tc

begin letz
   data "saddle.z"
   z = 3/2*(cos(3/5*(y-1))+5/4)/(1+(((x-4)/3)^2))
   x from 0 to 20 step 0.5
   y from 0 to 20 step 0.5
end letz

amove pagewidth()/2 pageheight()-0.1
write "Saddle Plot (3D)"

begin object saddle
   begin surface
      size 10 9
      data "saddle.z"
      xtitle "X-axis" hei 0.35 dist 0.7
      ytitle "Y-axis" hei 0.35 dist 0.7
      ztitle "Z-axis" hei 0.35 dist 0.9
      top color blue
      zaxis ticklen 0.1 min 0 hei 0.25
      xaxis hei 0.25 dticks 4 nolast nofirst
      yaxis hei 0.25 dticks 4
   end surface
end object

amove pagewidth()/2 0.2
draw "saddle.bc"
';
        $obj    = App::Basis::ConvertText2::Plugin::Gle->new();
        $params = undef;
        $out    = $obj->process( 'gle', $content, $params, $TEST_DIR );
        ok( has_file($out), 'gle created a file' );

# gle
        $content = '#
# $Id: surface1.dem,v 1.11 2004/09/17 05:01:12 sfeam Exp $
#
set term png size 600, 400
set output "/tmp/saddle.png"
set samples 21
set isosample 11