[data-sexpression-util.git] / t / Data-SExpression-Util.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 6;
use Data::Dump::Sexp qw/dump_sexp/;
BEGIN { use_ok('Data::SExpression::Util', ':all') };

my $list = cons 1, cons 2, cons 3, undef; # (1 2 3)
my $other_list = cons 4, cons 5, undef;	  # (4 5)

$list = append $list, $other_list; # $list is now (1 2 3 4 5)

is position(1, $list), 0;
is position(4, $list), 3;
ok !defined(position 0, $list);

$list = rev $list;
is dump_sexp($list), '(5 4 3 2 1)';

$list = mapcar { $_ + 1 } $list;   # (6 5 4 3 2)
is dump_sexp($list), '(6 5 4 3 2)';
Commit	Line	Data
45be15da MG	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)';