### ----------------------------------------------------
### -- Jupyter::Chatbook
### -- Licenses: Artistic-2.0
### -- Authors: Brian Duggan, Anton Antonov
### -- File: t/06-magic.rakutest
### ----------------------------------------------------
#!/usr/bin/env perl6
use lib 'lib';
use Test;
use Log::Async;
use Jupyter::Chatbook::Magics;

logger.add-tap( -> $msg { diag $msg<msg> } );

plan 56;

my $m = Jupyter::Chatbook::Magics.new;
class MockResult {
    has $.output;
    has $.output-mime-type;
    has $.stdout;
    has $.stdout-mime-type;
    has $.stderr;
    has $.exception;
    has $.incomplete;
}

{
    my $code = q:to/DONE/;
        no magic
        DONE
    ok !$m.find-magic($code), 'no magic';
}

{
    my $code = q:to/DONE/;
    %% javascript
    hello world
    DONE

    ok my $magic = $m.find-magic($code), 'preprocess recognized %% javascript';
    is $code, "hello world\n", 'find-magic removed magic line';
    my $r = $magic.preprocess($code);
    is $r.output-mime-type, 'application/javascript', 'js magic set the mime type';
}
{
    my $code = q:to/DONE/;
    %% latex
    "hello latex";
    DONE

    ok my $magic = $m.find-magic($code), 'find-magic recognized %% latex';
    is $code, qq["hello latex";\n], 'find-magic removed magic line';
    ok !$magic.preprocess($code), "preprocess did not return a result";
    is $code, qq["hello latex";\n], 'preprocess did not change code';
    my $result = $magic.postprocess(:result(MockResult.new));
    is $result.output-mime-type, 'text/latex', 'latex magic set the output mime type';
}
{
    my $code = q:to/DONE/;
    %% latex(equation*)
    "hello latex";
    DONE

    ok my $magic = $m.find-magic($code), 'find-magic recognized %% latex(equation*)';
    is $code, qq["hello latex";\n], 'find-magic removed magic line';
    ok !$magic.preprocess($code), "preprocess did not return a result";
    is $code, qq["hello latex";\n], 'preprocess did not change code';
    my $result = $magic.postprocess(:result(MockResult.new(:output<foo>)));
    is $result.output-mime-type, 'text/latex', 'latex magic set the output mime type';
    is $result.output, q:to/LATEX/, 'latex magic enclosed the output';
        \begin{equation*}
        foo
        \end{equation*}
        LATEX
}
{
    my $code = q:to/DONE/;
    %% html
    say "this is stdout";
    '<b>output</b>';
    DONE

    ok my $magic = $m.find-magic($code), 'find-magic recognized %% html';
    is $code, q:to/DONE/, 'find-magic removed magic line';
        say "this is stdout";
        '<b>output</b>';
        DONE
    ok !$magic.preprocess($code), "preprocess did not return a result";
    my $result = $magic.postprocess(:result(MockResult.new(
        :output('<b>output</b>'),
        :stdout("this is stdout\n"),
        )));
    is $result.output-mime-type, 'text/html', 'html magic set the output mime type';
    is $result.output, '<b>output</b>', 'html unchanged';
    is $result.stdout-mime-type, 'text/plain', 'stdout is text/plain';
    is $result.stdout, "this is stdout\n", 'stdout worked';
}
{
    my $code = q:to/DONE/;
    %% > html
    say '<b>this is stdout</b>';
    'output';
    DONE

    ok my $magic = $m.find-magic($code), 'find-magic recognized %% html';
    is $code, q:to/DONE/, 'find-magic removed magic line';
        say '<b>this is stdout</b>';
        'output';
        DONE
    ok !$magic.preprocess($code), "preprocess did not return a result";
    my $result = $magic.postprocess(:result(MockResult.new(
        :output('output'),
        :stdout("<b>this is stdout</b>\n"),
        )));
    is $result.output-mime-type, 'text/plain', 'html magic did not set output mime type';
    is $result.output, 'output', 'html unchanged';
    is $result.stdout-mime-type, 'text/html', 'stdout is text/html';
    is $result.stdout, "<b>this is stdout</b>\n", 'stdout worked';
}
{
    my $code = '#% html > html';
    ok my $magic = $m.find-magic($code), 'found magic for mime';
    is $magic.^name, 'Jupyter::Chatbook::Magics::Magic::Filters', 'right magic';
    ok !$magic.preprocess($code), 'preprocess does not return true';
    my $result = MockResult.new(:output('going out'),:stdout('going to stdout'));
    ok $result = $magic.postprocess(:$result), 'postprocess returned a result';
    is $result.output-mime-type, 'text/html', 'set output mime type';
    is $result.stdout-mime-type, 'text/html', 'set stdout mime type';
}
{
    my $code = '#% html > latex';
    given $m.find-magic($code)
       .postprocess(:result( MockResult.new(:output<out>,:stdout<std>) )) {
       is .output-mime-type, 'text/html', 'generated html output';
       is .stdout-mime-type, 'text/latex', 'but latex on stdout';
    }
}
{
    my $code = '#% latex > html';
    given $m.find-magic($code)
       .postprocess(:result( MockResult.new(:output<out>,:stdout<std>) )) {
       is .output-mime-type, 'text/latex', 'generated latex output';
       is .stdout-mime-type, 'text/html', 'but html on stdout';
    }
}
{
    my $code = '#% latex(equation) > html';
    given $m.find-magic($code)
       .postprocess(:result( MockResult.new(:output<out>,:stdout<std>) )) {
       is .output-mime-type, 'text/latex', 'generated latex output';
       is .stdout-mime-type, 'text/html', 'but html on stdout';
    }
}
{
    my $cell = ( '%% bash', 'echo hello').join("\n");
    my $magic = $m.find-magic($cell);
    ok $magic, 'found bash magic';
    given $magic.preprocess("echo hello") {
        is .output, "hello\n", 'got output';
        is .output-mime-type, 'text/plain', 'got right mime type';
       }
}
{
    my $cmd = 'LANG=C LC_ALL=C ls /no/such/file/i/hope';
    my $cell = ( '%% bash', $cmd).join("\n");
    my $magic = $m.find-magic($cell);
    ok $magic, 'found bash magic';
    given $magic.preprocess($cmd) {
        is .output, "", 'no output';
        is .output-mime-type, 'text/plain', 'got right mime type';
        like .stdout, /:i 'no such file'/, 'errors on stdout';
       }
}
{
    my $code =  q:to/DONE/;
        my $x = 1;
        my $y = 2;
        my $z = $x + $y;
        42;
        DONE
    my $file will leave {.unlink} = $*TMPDIR.child("test.$*PID");
    $file.spurt: $code;
    my $cell = "%% run $file";
    my $magic = $m.find-magic($cell);
    ok $magic, 'found run magic';
    nok $magic.preprocess($cell), 'no return value from preprocess';
    is $cell, $code, "Cell now has code";
}
{
    my $code =  q:to/CODE/;
        my $x = 1;
        my $y = 2;
        my $z = $x + $y;
        42;
        CODE
    my $more = q:to/MORE/;
        my $pdq = 99;
        MORE
    my $file will leave {.unlink} = $*TMPDIR.child("test.$*PID");
    $file.spurt: $code;
    my $cell = qq:to/CELL/;
        %% run $file
        $more
        CELL
    my $magic = $m.find-magic($cell);
    ok $magic, 'found run magic';
    nok $magic.preprocess($cell), 'no return value from preprocess';
    is $cell, ($code,$more).join("\n") ~ "\n", "Cell now has more code";
}

{
    my $cell = '%% run nosuchfile.abc';
    my $magic = $m.find-magic($cell);
    my $result = $magic.preprocess($cell);
    ok $result, 'Handled missing file';
    like $result.stdout, / 'not find' /, 'error message';
}

# vim: syn=perl6


