From 0640f90da6e16a23fc87dd4acb32d1d3604b1267 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 11 Sep 2011 20:25:17 +0200
Subject: Add actual tests

---
 lib/Travel/Status/DE/VRR.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'lib/Travel/Status/DE')

diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm
index e16136f..47b3b76 100644
--- a/lib/Travel/Status/DE/VRR.pm
+++ b/lib/Travel/Status/DE/VRR.pm
@@ -98,6 +98,21 @@ sub new {
 	return $self;
 }
 
+sub new_from_html {
+	my ( $class, %opt ) = @_;
+
+	my $self = { html => $opt{html}, };
+
+	$self->{tree} = XML::LibXML->load_html(
+		string            => $self->{html},
+		recover           => 2,
+		suppress_errors   => 1,
+		suppress_warnings => 1,
+	);
+
+	return bless( $self, $class );
+}
+
 sub errstr {
 	my ($self) = @_;
 
-- 
cgit v1.2.3