File: run_compare.t

package info (click to toggle)
libtest-base-perl 0.89-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 676 kB
  • sloc: perl: 936; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 279 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use Test::Base tests => 3;

run_compare in => 'out';

__DATA__
=== Compare strings
--- in split sort join=\s: ccc bbb aaa
--- out: aaa bbb ccc

=== Compare deeply
--- in eval: [1, 2, 3]
--- out eval Reverse: [3, 2, 1]

=== Compare like
--- in: You are here
--- out regexp: ere$