[DRBD-cvs] testing by lars; make generic_test.pl more configurable

[drbd-user@lists.linbit.com]

DRBD CVS committal

Author  : lars
Project : drbd
Module  : testing

Dir     : drbd/testing/CTH/LGE_CTH


Modified Files:
      Tag: rel-0_7-branch
	GenericTest.pm 


Log Message:
make generic_test.pl more configurable
===================================================================
RCS file: /var/lib/cvs/drbd/drbd/testing/CTH/LGE_CTH/Attic/GenericTest.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -3 -r1.1.2.1 -r1.1.2.2
--- GenericTest.pm	27 May 2004 12:44:18 -0000	1.1.2.1
+++ GenericTest.pm	3 Jun 2004 10:00:08 -0000	1.1.2.2
@@ -1,5 +1,5 @@
 package LGE_CTH::GenericTest;
-# $Id: GenericTest.pm,v 1.1.2.1 2004/05/27 12:44:18 lars Exp $
+# $Id: GenericTest.pm,v 1.1.2.2 2004/06/03 10:00:08 lars Exp $
 our @ISA = 'LGE_CTH::Resource';
 
 our %ClassData = (
@@ -28,6 +28,12 @@
 		(my $fn = $s) =~ s/_script$//;
 		$me->{_config}->{$s} = "${which}_$fn";
 	}
+}
+
+sub as_string {
+	my $me = shift;
+	"$me->{_id}: $me->{_config}->{which} on $me->{_config}->{fs}->{_id}: $me->{_status}->{status}"
+	. ($me->{_current_node} ? " on $me->{_current_node}->{_id}" : "" )
 }
 
 sub env {