Update of /cvsroot/fink/dists/10.4/stable/main/finkinfo/libs/perlmods
In directory
vz-cvs-3.sog:/tmp/cvs-serv28181/10.4-stable/main/finkinfo/libs/perlmods
Added Files:
chemistry-file-internalcoords-pm.patch
Log Message:
whoops, wrong cvs checkout!
--- NEW FILE: chemistry-file-internalcoords-pm.patch ---
diff -Nurd -x'*~' Chemistry-File-InternalCoords-0.03.orig/t/hydrogen.t
Chemistry-File-InternalCoords-0.03/t/hydrogen.t
--- Chemistry-File-InternalCoords-0.03.orig/t/hydrogen.t 2006-06-24
23:45:47.000000000 -0400
+++ Chemistry-File-InternalCoords-0.03/t/hydrogen.t 2012-01-09
17:27:39.000000000 -0500
@@ -33,13 +33,13 @@
$atom = $mol->atoms(1);
is($atom->symbol, 'H', "got H");
-is($atom->coords, Math::VectorReal->new(0,0,0), "H1: coords");
+is($atom->coords->stringify, Math::VectorReal->new(0,0,0)->stringify, "H1:
coords");
is(join(" ",$atom->neighbors), "2", "H1: neighbors");
is(join(" ",$atom->bonds), "b1", "H1: bonds");
$atom = $mol->atoms(2);
is($atom->symbol, 'H', "got H");
-is($atom->coords, Math::VectorReal->new(0.7,0,0), "H2: coords");
+is($atom->coords->stringify, Math::VectorReal->new(0.7,0,0)->stringify, "H2:
coords");
is(join(" ",$atom->neighbors), "1", "H2: neighbors");
is(join(" ",$atom->bonds), "b1", "H2: bonds");
diff -Nurd -x'*~' Chemistry-File-InternalCoords-0.03.orig/t/water.t
Chemistry-File-InternalCoords-0.03/t/water.t
--- Chemistry-File-InternalCoords-0.03.orig/t/water.t 2006-06-24
23:42:28.000000000 -0400
+++ Chemistry-File-InternalCoords-0.03/t/water.t 2012-01-09
17:27:40.000000000 -0500
@@ -36,19 +36,19 @@
$atom = $mol->atoms(1);
is($atom->symbol, 'O', "got O");
-is($atom->coords, Math::VectorReal->new(0,0,0), "O: coords");
+is($atom->coords->stringify, Math::VectorReal->new(0,0,0)->stringify, "O:
coords");
is(join(" ",$atom->neighbors), "2 3", "O: neighbors");
is(join(" ",$atom->bonds), "b1 b2", "O: bonds");
$atom = $mol->atoms(2);
is($atom->symbol, 'H', "got H");
-is($atom->coords, Math::VectorReal->new(0.96659987,0,0), "H1: coords");
+is($atom->coords->stringify, Math::VectorReal->new(0.96659987,0,0)->stringify,
"H1: coords");
is(join(" ",$atom->neighbors), "1", "H1: neighbors");
is(join(" ",$atom->bonds), "b1", "H1: bonds");
$atom = $mol->atoms(3);
is($atom->symbol, 'H', "got H");
-is($atom->coords, Math::VectorReal->new(-0.2934144771811,0.9209903654570,0),
"H2: coords");
+is($atom->coords->stringify,
Math::VectorReal->new(-0.2934144771811,0.9209903654570,0)->stringify, "H2:
coords");
is(join(" ",$atom->neighbors), "1", "H2: neighbors");
is(join(" ",$atom->bonds), "b2", "H2: bonds");
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
