Navigation

Changeset 2151 for libswish3/trunk/bindings/perl/t

Timestamp:

07/29/08 21:37:14 (4 months ago)

Author:

karpet

Message:

update perl bindings to use new WordList? API

Files:

r2029	r2151
1		use Test::More tests => 7;
	1	use Test::More tests => 6;
2	2
3	3	use SWISH::3 qw( :constants );
4	4
5	5	ok( my $s3 = SWISH::3->new, "new s3" );
6		ok( my $analyzer = $s3->analyzer, "new tokenizer" );
7
8		ok( my $wlist = $analyzer->tokenize(
	6	ok( my $wlist = $s3->tokenize(
9	7	"now is the time, ain't it? or when else might it be!",
10	8	14, 5, 'foo', 'bar'

r2045	r2151
1		use Test::More tests => 4;
	1	use Test::More tests => 5;
2	2
3	3	use SWISH::3;
…	…
5	5	ok( my $s3 = SWISH::3->new(), "new s3 object" );
6	6
7		ok( my $analyzer = $s3->analyzer, "get analyzer" );
	7	#ok( my $analyzer = $s3->analyzer, "get analyzer" );
8	8
9		eval { my $handler = $analyzer->get_token_handler };
	9	eval { my $handler = $s3->analyzer->get_token_handler };
10	10
11		ok( $@, "get token handler" );
	11	ok( $@, "get token handler: $@" );
12	12
13		like( 'foo', $analyzer->get_regex, 'get regex' );
	13	like( 'foo', $s3->analyzer->get_regex, 'get regex' );
	14
	15	ok( !$s3->analyzer->set_token_handler( sub { $_[0]->debug } ),
	16	"set token handler" );
	17
	18	ok( $s3->tokenize('foo bar baz'), "tokenize" );
	19

r2045	r2151
1		use Test::More tests => 22;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 28;
2	5	use Data::Dump qw( dump );
3	6
…	…
32	35
33	36	}
	37
	38	ok( $s3 = SWISH::3->new(
	39	config => '<swish><MetaNames><foo /></MetaNames></swish>',
	40	handler => \&metacheck
	41	),
	42	"new s3"
	43	);
	44	ok( $s3->parse_file("t/bumper.html"), "parse bumper.html" );
	45
	46	sub metacheck {
	47	my $data = shift;
	48	my $meta = $data->metanames;
	49	my $prop = $data->properties;
	50
	51	#dump $meta;
	52	#dump $prop;
	53
	54	cmp_ok( $meta->{'foo'}->[0], 'eq', 'one two', "first foo meta" );
	55	cmp_ok( $meta->{'foo'}->[1], 'eq', 'three four', "second foo meta" );
	56	cmp_ok(
	57	$meta->{'swishdefault'}->[0],
	58	'eq',
	59	'this is para one',
	60	"first swishdefault meta"
	61	);
	62	cmp_ok(
	63	$meta->{'swishdefault'}->[1],
	64	'eq',
	65	'this is para two',
	66	"second swishdefault meta"
	67	);
	68
	69	}
	70
	71	# TODO this ends with -177 mem err

r2014	r2151
2	2	<head>
3	3	<title>This is the title of the test.html doc</title>
4		<meta name="foo" content="metaname bar" />
	4	<meta name="foo" content="metaname foo" />
	5	<meta name="bar" content="metaname bar" />
5	6	</head>
6	7	<body>
7	8	<p>some words</p>
	9	<p>more words</p>
8	10	</body>
9	11	</html>

r2014	r2151
1	1	<html>
	2	<body>
2	3	<p>some words</p>
3	4	<swishtitle>title here</swishtitle>
	5	<swishtitle>more title here</swishtitle>
	6	</body>
4	7	</html>