head

output-is "script.p6", "hello: goodbye\n", "Two args ",
        args => ["--msg=goodbye", "hello"];


output-like "script.p6, /"hello → goodbye"/, "Prints environment ",
        env => { "hello" => "goodbye" };


variable-ok "script.p6", '$foo', "Variable exists and is set";
variable-is "script.p6", '$foo', <bar baz>, "Variable exists and has value";


This module is intended as a white-box test for scripts. Instead of running
them as black boxes, it incorporates them into the current program, allowing
better examination of its internal workings.


For the time being, it's just the output, but in the roadmap is the
examination of variable values and other dynamic stuff.



use Test;

unit module Test::Script;

subset Script of Str where .IO.e && / \.p6 || \.raku/;

#| Check the output of a $script, provided optional arguments and environment
sub output-is(Script $script,
              Str $desired-output,
              Str $msg,
              :@args,
              :%env ) is export {
    my $output= get-output( $script, :@args, :%env );
    is( $output, $desired-output, $msg);

}

#| Check the output via a regular expression
sub output-like(Script $script,
                Regex $desired-output,
                Str $msg,
                :@args,
                :%env  ) is export {
    my $output= get-output( $script, :@args, :%env );
    like( $output, $desired-output, $msg);

}

#| Checks that it fails in an expected way
sub error-like(Script $script,
                Regex $desired-output,
                Str $msg,
                :@args,
                :%env  ) is export {
    my $output= get-err( $script, :@args, :%env );
    like( $output, $desired-output, $msg);

}

sub get-output(Script $script,
              :@args,
              :%env ) {
    my $output;
    my $stdout = $*OUT;
    $*OUT = class {
        method print(*@args) {
            $output ~= @args.join;
        }
        method flush {}
    }
    try {
        @*ARGS = @args.map: ~*;
        for %env.keys -> $k {
            %*ENV{$k} = %env{$k};
        }
        CompUnit::Loader.load-source-file($script.IO);
    }
    $*OUT = $stdout;
    $output;

}

sub get-err(Script $script,
              :@args,
              :%env ) {
    my $output;
    my $stderr = $*ERR;
    $*ERR = class {
        method print(*@args) {
            $output ~= @args.join;
        }
        method flush {}
    }
    try {
        @*ARGS = @args.map: ~*;
        for %env.keys -> $k {
            %*ENV{$k} = %env{$k};
        }
        CompUnit::Loader.load-source-file($script.IO);
        CATCH {
            default {
                $output ~= .message
            }
        }
    }
    $*ERR = $stderr;
    $output;

}

#| Check that a variable exist and is defined
sub variable-ok(Script $script,
                Str $variable,
                Str $message,
               :@args,
               :%env ) is export {
    my %vars = get-vars( $script, :@args, :%env);
    ok(%vars{$variable}, $message);

}

#| Check that a variable has certain value
sub variable-is(Script $script,
                Str $variable,
                Mu \value,
                Str $message,
                :@args,
                :%env ) is export {
    my %vars = get-vars( $script, :@args, :%env);
    is(%vars{$variable}, value, $message);

}

sub get-vars(Script $script,
                :@args,
                :%env ) is export {
    @*ARGS = @args;
    for %env.keys -> $k {
        %*ENV{$k} = %env{$k};
    }
    my $handle = CompUnit::Loader.load-source-file($script.IO);
    return $handle.globalish-package;

}



You can't test the same script twice in the same file. As a workaround
(probably temporary), call it under different names such as C<./script.p6> or
C<../dir/script.p6>; alternatively, just use different tests for different
scripts.


This library is free software; you can redistribute it and/or modify it under
the Artistic 2.0 license


root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

Script

Image

code

README

#!/usr/bin/env perl6

use v6;

say "Loaded";



output

runnable

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Script

NAME

SYNOPSIS

DESCRIPTION

CAVEATS

AUTHOR

COPYRIGHT AND LICENSE

Test::Script v0.0.4

Authors

License

Dependencies

Test Dependencies

Provides

Documentation