[Mupad-combinat-commits] SF.net SVN: mupad-combinat:[7588] trunk/MuPAD-Combinat/lib/DOMAINS/DOMAIN/ TEST/DualOfFreeCommutativeGroup.tst

[<nt...@us...>]

Revision: 7588
          http://mupad-combinat.svn.sourceforge.net/mupad-combinat/?rev=7588&view=rev
Author:   nthiery
Date:     2008-11-14 23:18:57 +0000 (Fri, 14 Nov 2008)

Log Message:
-----------
Changed the internal data structure for DualOfFreeCommutativeGroup

Modified Paths:
--------------
    trunk/MuPAD-Combinat/lib/DOMAINS/DOMAIN/TEST/DualOfFreeCommutativeGroup.tst

Modified: trunk/MuPAD-Combinat/lib/DOMAINS/DOMAIN/TEST/DualOfFreeCommutativeGroup.tst
===================================================================
--- trunk/MuPAD-Combinat/lib/DOMAINS/DOMAIN/TEST/DualOfFreeCommutativeGroup.tst	2008-11-14 23:18:39 UTC (rev 7587)
+++ trunk/MuPAD-Combinat/lib/DOMAINS/DOMAIN/TEST/DualOfFreeCommutativeGroup.tst	2008-11-14 23:18:57 UTC (rev 7588)
@@ -35,49 +35,52 @@
 prog::testfunc("fromExponents"):
 
 prog::test(Hdual::fromExponents([0, 0]),
-           Hdual([1, 1])):
+           Hdual::fromValues([1, 1])):
 prog::test(Hdual::fromExponents([1, 1]),
-	   Hdual([I, -1])):
+	   Hdual::fromValues([I, -1])):
 prog::test(Hdual::fromExponents([2, 1]),
-	   Hdual([-1, -1])):
+	   Hdual::fromValues([-1, -1])):
 
 //////////////////////////////////////////////////////////////////////////////
 prog::testfunc("list"):
 prog::test(Hdual::list(),
-           [Hdual([1, 1]), Hdual([1, -1]), Hdual([I, 1]), Hdual([I, -1]),
-	    Hdual([-1, 1]), Hdual([-1, -1]), Hdual([-I, 1]), Hdual([-I, -1])]):
+           [Hdual::fromValues([1, 1]), Hdual::fromValues([1, -1]), Hdual::fromValues([I, 1]), Hdual::fromValues([I, -1]),
+	    Hdual::fromValues([-1, 1]), Hdual::fromValues([-1, -1]), Hdual::fromValues([-I, 1]), Hdual::fromValues([-I, -1])]):
 
 //////////////////////////////////////////////////////////////////////////////
-prog::testfunc("scalar"):
+prog::testfunc("asFunctionOnH"):
 
 f := Hdual::asFunctionOnH(Hdual::one):
 prog::test(map(H::list(), f),
            [1 $ 8]):
 
-f := Hdual::asFunctionOnH(Hdual([I,1])):
+f := Hdual::asFunctionOnH(Hdual::fromValues([I,1])):
 prog::test(map(H::list(), f),
            [1, 1, I, I, -1, -1, -I, -I]):
-f := Hdual::asFunctionOnH(Hdual([1,-1])):
+f := Hdual::asFunctionOnH(Hdual::fromValues([1,-1])):
 prog::test(map(H::list(), f),
            [1, -1, 1, -1, 1, -1, 1, -1]):
 
-f := Hdual::asFunctionOnH(Hdual([I,-1])):
+f := Hdual::asFunctionOnH(Hdual::fromValues([I,-1])):
 prog::test(map(H::list(), f),
            [1, -1, I, -I, -1, 1, -I, I]):
 
+//////////////////////////////////////////////////////////////////////////////
+prog::testfunc("scalar"):
+
 export(operators, Alias, scalar):
 
-prog::test(scalar(Hdual([ I,-1]), H([1,0])),  I);
-prog::test(scalar(Hdual([ I,-1]), H([0,1])), -1);
-prog::test(scalar(Hdual([-1,-1]), H([1,0])), -1);
-prog::test(scalar(Hdual([-1,-1]), H([1,1])),  1);
+prog::test(scalar(Hdual::fromValues([ I,-1]), H([1,0])),  I):
+prog::test(scalar(Hdual::fromValues([ I,-1]), H([0,1])), -1):
+prog::test(scalar(Hdual::fromValues([-1,-1]), H([1,0])), -1):
+prog::test(scalar(Hdual::fromValues([-1,-1]), H([1,1])),  1):
 
 //////////////////////////////////////////////////////////////////////////////
 prog::testfunc(Dom::DualOfFreeCommutativeGroup):
 prog::testexit():
 //////////////////////////////////////////////////////////////////////////////
 
-prog::check(testDomain, 3):
+prog::check(Hdual, 3):
 
 
 // Local Variables:


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.