Changeset Navigation

Changeset 1524

Timestamp:

08/20/06 20:43:31

Author:

miyagawa

Message:

fixed UUV warnings around Plagger::Content. Fixed tests to deal with Unicode stuff

Files:

r1521	r1524
17	17	my($class, $text) = @_;
18	18
	19	return unless defined $text;
19	20	utf8::decode($text) unless utf8::is_utf8($text);
20	21
…	…
51	52	}
52	53
	54	sub unicode { $_[0]->data }
	55	sub utf8 { Encode::encode_utf8($_[0]->data) }
	56
	57	sub serialize {
	58	my $self = shift;
	59	$self->data;
	60	}
	61
53	62	1;

r1521	r1524
64	64	sub title_text {
65	65	my $self = shift;
66		$self->title~~->plaintext~~;
	66	$self->title ? $self->title->plaintext : undef;
67	67	}
68	68
69	69	sub body_text {
70	70	my $self = shift;
71		$self->body~~->plaintext~~;
	71	$self->body ? $self->body->plaintext : undef;
72	72	}
73	73

r1521	r1524
59	59	sub title_text {
60	60	my $self = shift;
61		$self->title~~->plaintext~~;
	61	$self->title ? $self->title->plaintext : undef;
62	62	}
63	63

r1356	r1524
15	15	- file://$t::TestPlagger::BaseDirURI/t/samples/rss-full.xml
16	16	--- expected
17		ok utf8::is_utf8( $context->update->feeds->[0]->title );
18		ok utf8::is_utf8( $context->update->feeds->[0]->description );
19		ok utf8::is_utf8( $context->update->feeds->[0]->entries->[0]->title );
20		ok utf8::is_utf8( $context->update->feeds->[0]->entries->[0]->body );
	17	ok utf8::is_utf8( $context->update->feeds->[0]->title->data );
	18	ok utf8::is_utf8( $context->update->feeds->[0]->description->data );
	19	ok utf8::is_utf8( $context->update->feeds->[0]->entries->[0]->title->data );
	20	ok utf8::is_utf8( $context->update->feeds->[0]->entries->[0]->body->data );