| 1 | #!/usr/bin/perl |
| 2 | use strict; |
| 3 | use warnings; |
| 4 | |
| 5 | use Test::More tests => 6; |
| 6 | use Data::Dump::Sexp qw/dump_sexp/; |
| 7 | BEGIN { use_ok('Data::SExpression::Util', ':all') }; |
| 8 | |
| 9 | my $list = cons 1, cons 2, cons 3, undef; # (1 2 3) |
| 10 | my $other_list = cons 4, cons 5, undef; # (4 5) |
| 11 | |
| 12 | $list = append $list, $other_list; # $list is now (1 2 3 4 5) |
| 13 | |
| 14 | is position(1, $list), 0; |
| 15 | is position(4, $list), 3; |
| 16 | ok !defined(position 0, $list); |
| 17 | |
| 18 | $list = rev $list; |
| 19 | is dump_sexp($list), '(5 4 3 2 1)'; |
| 20 | |
| 21 | $list = mapcar { $_ + 1 } $list; # (6 5 4 3 2) |
| 22 | is dump_sexp($list), '(6 5 4 3 2)'; |