Skip to content

Instantly share code, notes, and snippets.

@masak
Created February 14, 2009 11:39
Show Gist options
  • Save masak/64343 to your computer and use it in GitHub Desktop.
Save masak/64343 to your computer and use it in GitHub Desktop.
$ diff ~/work/hobbies/parrot/languages/rakudo/Test.pm Test.pm
0a1
> # Based on:
2c3
< # $Id$
---
> # $Id: Test.pm 30592 2008-08-27 14:31:45Z moritz $
4,5c5,8
< ## This is a temporary Test.pm to get us started until we get pugs's Test.pm
< ## working. It's shamelessly stolen & adapted from MiniPerl6 in the pugs repo.
---
> # This version of Test.pm used in November (http://github.com/viklund/november/)
> # Changes:
> # - implementation of 'is_deeply'
> # - proclaim can say what it got and expected, respectively
56c59
< proclaim($test, $desc);
---
> proclaim($test, $desc, $got, $expected);
64c67
< proclaim($test, $desc);
---
> proclaim($test, $desc, $got, $expected);
71c74
< proclaim($test, $desc);
---
> proclaim($test, $desc, $got, $expected);
150c153
< proclaim($val, $reason);
---
> proclaim( $val, $reason, $this.perl, $that.perl );
155c158
< proclaim($val, '');
---
> proclaim( $val, '', $this.perl, $that.perl );
198c201
< sub proclaim(Object $cond, $desc) {
---
> sub proclaim(Object $cond, $desc, $got?, $expected?) {
215c218,223
< print "\n";
---
>
> if !$cond && defined $expected {
> printf "\n# got: %s\n# expected: %s", $got, $expected;
> }
>
> say '';
232a241,242
>
> # vim:ft=perl6
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment