File: filter_arguments.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 (23 lines) | stat: -rw-r--r-- 270 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use Test::Base tests => 3;

run {};

sub foo {
    is filter_arguments, '123,456';
    return;
}

sub bar {
    is filter_arguments, '---holy-crow+++';
    is $_, "one\n  two\n";
    return;
}

__DATA__
===
--- xxx foo=123,456

===
--- xxx bar=---holy-crow+++
one
  two