NAME ^

Test::More - Parrot extension for testing modules

SYNOPSIS ^

    # load this library
    load_bytecode 'library/Test/More.pir'

    # get the testing functions
    .local pmc plan
    .local pmc diag
    .local pmc ok
    .local pmc is
    .local pmc is_deeply
    .local pmc like

    plan      = find_global 'Test::More', 'plan'
    diag      = find_global 'Test::More', 'diag'
    ok        = find_global 'Test::More', 'ok'
    is        = find_global 'Test::More', 'is'
    is_deeply = find_global 'Test::More', 'is_deeply'
    like      = find_global 'Test::More', 'like'

    # set a test plan
    plan( 12 )

    # run your tests
    ok( 1 )
    ok( 0, 'failing test with diagnostic' )

    is( 100, 100 )
    is( 200, 100, 'failing integer compare with diagnostic' )

    is( 1.001, 1.001, 'passing float compare with diagnostic' )
    is( 8.008, 4.004 )

    is( 'foo', 'foo', 'passing string compare with diagnostic' )
    is( 'foo', 'bar', 'failing string compare with diagnostic' )

    is( some_pmc, another_pmc, 'pmc comparison uses "eq" op' )

    diag( 'this may take a while' )
    is_deeply( some_deep_pmc, another_deep_pmc, 'deep structure comparison' )

    like( 'foo', 'f o**{2}', 'passing regex compare with diagnostic' )

DESCRIPTION ^

Test::More is a pure-Parrot library for testing modules. It provides the ok(), is(), is_deeply(), and like() comparison functions for you. It also provides the plan() and diag() helper functions. It uses Test::Builder, a simple, single backend for multiple test modules to use within your tests.

FUNCTIONS ^

This class defines the following functions:

plan( number_or_no_plan )

Declares the number of tests you plan to run, either an integer greater than zero or the string no_plan. This will throw an exception if you have already declared a plan or if you pass an invalid argument.

ok( passed, description )

Records a test as pass or fail depending on the truth of the integer passed, recording it with the optional test description in description.

nok( passed, description )

Records a test as pass or fail depending on the falsehood of the integer passed, recording it with the optional test description in description.

is( left, right, description )

Compares the parameters passed as left and right, passing if they are equal and failing otherwise. This will report the results with the optional test description in description.

This is a multi-method, with separate implementations for int-int, float-float, string-string, and PMC-PMC comparisons. The latter uses the eq opcode for comparison.

If there is a mismatch, the current implementation takes the type of left as the proper type for the comparison, converting any numeric arguments to floats. Note that there is a hard-coded precision check to avoid certain rounding errors. It's not entirely robust, but it's not completely awful either.

Patches very welcome. Multi-dispatch is a bit tricky here.

This probably doesn't handle all of the comparisons you want, but it's easy to add more.

diag( diagnostic )

Prints diagnostic to the screen, without affecting test comparisons.

is_deeply( left, right, description )

Compares the data structures passed as left and right. If data structures are passed, is_deeply does a deep comparison by walking each structure. It passes if they are equal and fails otherwise. This will report the results with the optional test description in description.

This only handles comparisons of array-like structures. It shouldn't be too hard to extend it for hash-like structures, too.

like( target, pattern, description )

Similar to is, but using the Parrot Grammar Engine to compare the string passed as target to the pattern passed as pattern. It passes if the pattern matches and fails otherwise. This will report the results with the optional test description in description.

AUTHOR ^

Written and maintained by chromatic, chromatic at wgz dot org, based on the Perl 6 port he wrote, based on the original Perl 5 version he wrote with ideas from Michael G. Schwern. Please send patches, feedback, and suggestions to the Perl 6 internals mailing list.

COPYRIGHT ^

Copyright (C) 2005 - 2006 The Perl Foundation.


parrot