--- trunk/t/5_Node.t	2006/05/10 13:34:17	138
+++ trunk/t/5_Node.t	2006/05/10 13:45:08	139
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 132;
+use Test::More tests => 136;
 use Test::Exception;
 use Data::Dumper;
 
@@ -259,4 +259,23 @@
 	), "nodedel $node_name: $msg");
 }
 
+# test create
+my $node_name = '_test_create_' . $$;
+my $node_label = "test $$ label";
+
+ok($node = new Search::Estraier::Node(
+	url => "http://localhost:1978/node/$node_name",
+	create => 1,
+	label => $node_label,
+	croak_on_error => 1
+), "new non-existant with create");
+
+cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
+cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");
+
+ok($msg = $node->master(
+	action => 'nodedel',
+	name => $node_name,
+), "nodedel $node_name: $msg");
+
 diag "over";