Find an existing test under t/ that is written use the perl test modules.
parrot tests tend to have a single perl test that generates multiple lines of output; Each of these multiple lines of output needs to be a single test in the parrot model.
For example, here's on old style single test with two outputs.
pir_output_is( <<'CODE', <<'OUT', 'string isa and pmc isa have same result' ); .sub main .local pmc class, obj class = new 'Class' obj = class.'new'() $I0 = isa obj, 'Object' print $I0 print "\n" .local pmc cl cl = new 'String' cl = 'Object' $I1 = isa obj, cl print $I1 print "\n" .end CODE 1 1 OUT
To convert this to pir tests, you simply strip off the surrounding perl wrapper and leave the heredoc; give the sub a unique name, for example, based on your test description.
.sub string_isa_and_pmc_isa_have_same_result .local pmc class, obj class = new 'Class' obj = class.'new'() $I0 = isa obj, 'Object' print $I0 print "\n" .local pmc cl cl = new 'String' cl = 'Object' $I1 = isa obj, cl print $I1 print "\n" .end
Next, we need to convert the output to use PIR's test more subs...
.sub string_isa_and_pmc_isa_have_same_result .local pmc class, obj class = new 'Class' obj = class.'new'() $I0 = isa obj, 'Object' ok ($I0, 'isa Class instance an Object') .local pmc cl cl = new 'String' cl = 'Object' $I1 = isa obj, cl ok ($I1, 'isa String instance an Object') .end
Finally, we need a harness to run this sub with the two tests:
.sub main :main .include 'include/test_more.pir' plan(2) string_isa_and_pmc_isa_have_same_result() .end
Finally, be sure to update the coda to be a PIR coda rather than the perl one.
Here is a brief list of some potential stumbling blocks and ways around them:
- There are a number of tests which confirm proper error reporting. This can be done in PIR in three ways. The simplest way is to use dies_ok(), throws_like() or throws_substring().
- You can also create an exception handler and check the exception message.
pasm_error_output_like( <<'CODE', <<'OUTPUT', "Malformed string: real part" ); new P0, 'Complex' set P0, "q + 3i" end CODE /Complex: malformed string/ OUTPUT
becomes...
.sub exception_malformed_string__imaginary_part new P0, 'Complex' push_eh handler set P0, "q + 3i" pop_eh handler: .local pmc exception .local string message .get_results (exception) message = exception['message'] is( message, 'Complex: malformed string', 'Complex: malformed string' ) .end
Finally, you can create a EventHandler PMC and check for the appropriate error type. See t/pmc/ro.t for an example. This method may be preferable
- Some tests create new classes and add methods to those namespaces. In a consolidated file you will need to make sure the new class names don't collide (you'll probably find a number of Foo and Bar classes), and you will need to make sure you return to the root namespace after the test completes.
.namespace [] # Return to the root namespace
- Many tests are skipped based on the operating system. You can test for this in PIR with the following:
.include "iglobals.pasm" .local pmc config_hash, interp interp = getinterp config_hash = interp[.IGLOBALS_CONFIG_HASH] $S0 = config_hash["os_name"] eq $S0, "MSWin32", win32fail ... .return() win32fail: skip( 10, 'skipping ___ tests under MSWin' )