Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Testing Zork-style game

by BrowserUk (Pope)
on Jun 29, 2004 at 04:56 UTC ( #370407=note: print w/replies, xml ) Need Help??

in reply to Testing Zork-style game

K.I.S.S. Assuming that your using standard IO for your input and output, your test scripts could do something like:

use File::Slurp; use Test::More ...; ... system( 'perl < testfile.1 >output.1' ); my $out = Slurp( 'output.1' ); my $expected = Slurp( 'expected.1' ); ok( $out eq $expected );

Substututing zork < testfile.1 > output.C.1 (C-version) or lisp zork.whatever? < testfile.1 >output.lisp.1 for the perl in the system command allows you to run the same tests against all three versions.

Adding a debug option (to at least one version) that copies both the input and output to a separate files whilst the game is being played would allow you to generate your tests interactively with that version and then supply the input to the other versions and test their output was the same.

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - tachyon

Replies are listed 'Best First'.
Re^2: Testing Zork-style game
by petdance (Parson) on Jun 29, 2004 at 16:19 UTC
    Except that you'd want to write
    ok( $out eq $expected );
    is( $out, $expected );
    If the strings are really long and hard to read through, look at Test::LongString.


      If the strings are really long and hard to read through, look at Test::LongString.

      Test::Differences can be useful for this too.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://370407]
[Yaerox]: I feel like i'm not seeing the forest for the trees. Can someone give me a hint how to research converting all kinds of files into ansi? If origin file is utf8 convert to ansi, is origin file is ansi then skip file.
[1nickt]: Yaerox probably best to whip up an SSCCE demonstrating the failure in what you have now and post to SoPW as a question.
[Corion]: Yaerox: That's a somewhat hard problem. Encode solves the conversion part, but for guessing what encoding a file is in, that's the hard part
[Corion]: Yaerox: There is Encode::Guess, but that needs a limited set of inputs, and it also cannot handle multiple single-byte encodings

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (10)
As of 2017-03-28 13:13 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (331 votes). Check out past polls.