perfsonar development work

Author: dfn.calim
Date: 2014-02-28 14:03:22 +0000 (Fri, 28 Feb 2014)
New Revision: 843

Added:
   trunk/perfSONAR/
Modified:
   trunk/t/NMWG-001-Message.t
Log:
adding main perfsonar directory

Modified: trunk/t/NMWG-001-Message.t
===================================================================
--- trunk/t/NMWG-001-Message.t  2014-02-28 13:55:25 UTC (rev 842)
+++ trunk/t/NMWG-001-Message.t  2014-02-28 14:03:22 UTC (rev 843)
@@ -9,7 +9,7 @@
 
 #TODO
 use FindBin;
-use lib "$FindBin::RealBin/../lib";
+use lib "$FindBin::RealBin/..";
 
 
 #1
@@ -56,110 +56,3 @@
   "Creating empty message"
 );
 
-my $content = <<__EOCONTENT__;
-<?xml version="1.0" encoding="UTF-8"?>
-    <nmwg:message xmlns:nmtm="http://ggf.org/ns/nmwg/time/2.0/";
-                  xmlns:nmwg="http://ggf.org/ns/nmwg/base/2.0/";
-                  xmlns="http://ggf.org/ns/nmwg/tools/org/perfsonar/1.0/";
-                  xmlns:nmwgt="http://ggf.org/ns/nmwg/topology/2.0/";
-                  xmlns:hades="http://ggf.org/ns/nmwg/tools/hades/";
-                  
xmlns:summary="http://ggf.org/ns/nmwg/characteristic/delay/summary/";
-                  xmlns:select="http://ggf.org/ns/nmwg/ops/select/2.0/";
-    type="SetupDataRequest">
-      <nmwg:metadata id="hades_meta">
-        <hades:subject id="hades_subject">
-          <nmwgt:endPointPair>
-            <nmwgt:src value="Poznan_GEANT" type="IFName"/>
-            <nmwgt:dst value="Frankfurt_GEANT" type="IFName"/>
-          </nmwgt:endPointPair>
-        </hades:subject>
-        <nmwg:eventType>http://ggf.org/ns/tools/hades</nmwg:eventType>
-        <hades:parameters id="param1">
-          <nmwg:parameter value="41" name="packetsize"/>
-          <nmwg:parameter value="0x0" name="precedence"/>
-          <nmwg:parameter value="9" name="groupsize"/>
-          <nmwg:parameter value="60" name="interval"/>
-        </hades:parameters>
-      </nmwg:metadata>
-      <nmwg:metadata id="select_meta" metadataIdRef="hades_meta">
-        <select:subject id="select_subject"/>
-        <nmwg:eventType>http://ggf.org/ns/select</nmwg:eventType>
-        <select:parameters id="param2">
-          <nmwg:parameter name="startTime">1178179500</nmwg:parameter>
-          <nmwg:parameter name="endTime">1178179800</nmwg:parameter>
-        </select:parameters>
-      </nmwg:metadata>
-      <nmwg:data id="data1" metadataIdRef="select_meta"/>
-    </nmwg:message>
-__EOCONTENT__
-
-#3
-ok(
-  my $nmwg_msg1 = NMWG::Message->new($content),
-  "Creating message from string content"
-);
-
-#ok(
-#  $nmwg_msg1->dump,
-#  "dumped NMWG message"
-#);
-
-#4
-ok(
-  my $nmwg_clone = $nmwg_msg1->clone,
-  "cloned NMWG message"
-);
-
-#5
-ok(
-  my $msg_string = $nmwg_msg1->as_string,
-  "retrieving XML string of message"
-);
-
-#
-#is(
-#  $msg_string, $content, "Comparing XML string and original content"
-#);
-
-#6
-is(
-  $nmwg_msg1->as_string, $nmwg_clone->as_string, "Comparing original and 
clone message"
-);
-
-#7
-ok(
-  $nmwg_msg1->as_dom,
-  "Retrieving DOM representation of message"
-);
-
-#8
-ok(
-  my $msg_type = $nmwg_msg1->get_message_type,
-  "get messagetype"
-);
-
-#9
-#my $error;
-#ok(
-#  $error = $nmwg_msg1->set_message_type("Response"),
-#  "set messagetype: $error"
-#);
-
-#9
-$nmwg_msg1->set_message_type("Response");
-is(
-  $nmwg_msg1->get_message_type, "Response",
-  "check newly set messagetype"
-);
-
-#10
-#my $error;
-#my $description;
-#ok(
-#  ($error,$description) = $nmwg_msg1->parse_all,
-#  "Parse message: $error, $description"
-#);
-
-#11
-#print Dumper ($nmwg_msg1->{"dataIDs"});
-#print Dumper ($nmwg_msg1->{"metaIDs"});