The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

SIMONW / Python-Serialise-Pickle-0.01 / t / 02strings.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

              
use Test::More qw(no_plan);
use_ok('Python::Serialise::Pickle');
ok(my $ps = Python::Serialise::Pickle->new('t/strings'));
is($ps->load(),"'simple'");
is($ps->load(),'"simple"');
is($ps->load(),"simple");
is($ps->load(),'"simple"');
is($ps->load(),"simple space");
is($ps->load(),"simple\nnew line");
is($ps->load(),"simple\nnew line");
# TODO multiline and raw strings
ok($pw = Python::Serialise::Pickle->new('>t/tmp'));
ok($pw->dump("'simple'"));
ok($pw->dump('"simple"'));
ok($pw->dump("simple"));
ok($pw->dump('"simple"'));
ok($pw->dump("simple space"));
ok($pw->dump("simple\nnew line"));
ok($pw->dump("simple\nnew line"));
ok($pw->close());
ok(my $pr = Python::Serialise::Pickle->new('t/tmp'));
is($pr->load(),"'simple'");
is($pr->load(),'"simple"');
is($pr->load(),"simple");
is($pr->load(),'"simple"');
is($pr->load(),"simple space");
is($pr->load(),"simple\nnew line");
is($pr->load(),"simple\nnew line");