X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=persistence%2Ft%2Fuserrestore.t;h=ef5fc879480711486744e0df0363a014986c8784;hb=3d71549f12b79bbda2934bfc85f24b676a401d1a;hp=3c734b18e8facfbd6a4d470e318171e32ba94d87;hpb=ed5b9b7019c32c126faecf339bef3a98928f9f31;p=scpubgit%2Fstemmatology.git

diff --git a/persistence/t/userrestore.t b/persistence/t/userrestore.t
index 3c734b1..ef5fc87 100644
--- a/persistence/t/userrestore.t
+++ b/persistence/t/userrestore.t
@@ -11,6 +11,9 @@ use Text::Tradition::Directory;
 
 my $newt = Text::Tradition->new( 'input' => 'Self', 
 	'file' => 't/data/florilegium_graphml.xml' );
+	
+my $graphml = $newt->collation->as_graphml;
+unlike( $graphml, qr/testuser/, "Test user name does not exist in GraphML yet" );
 
 my $fh = File::Temp->new();
 my $file = $fh->filename;