Examples of org.jatha.dynatype.LispValue.equal()

org.jatha.dynatype.LispValue.equal()
Returns T if the argument is EQL or if two strings are STRING= or if two trees have EQUAL subtrees.


        assertEquals("Argument 1 should be correct",arg1,outp6.get(a_sym));
        assertEquals("Argument 2 should be correct",arg2,outp6.get(c_sym));
        assertEquals("Argument 1 supplied should be correct",lisp.T,outp6.get(b_sym));
        assertEquals("Argument 2 supplied should be correct",lisp.T,outp6.get(d_sym));
        assertTrue("Rest argument should be correct",expected6.equal((LispValue)outp6.get(x_sym)) == lisp.T);
    }


    public void testNormalKeyParameters() {
        final LispValue arg1 = lisp.makeInteger(17);
        final LispValue arg2 = lisp.makeString("Ojsan sa");

View Full Code Here

        assertEquals("Argument c should be correct",arg3,outp4.get(c_sym));
        assertEquals("Argument d should be correct",arg4,outp4.get(d_sym));


        assertEquals("Argument 1 should be correct",arg1,outp5.get(a_sym));
        assertEquals("Argument 2 should be correct",arg2,outp5.get(b_sym));
        assertTrue("Argument x should be correct",expected5.equal((LispValue)outp5.get(x_sym)) == lisp.T);
        assertEquals("Argument c should be correct",arg3,outp5.get(c_sym));
        assertEquals("Argument d should be correct",arg4,outp5.get(d_sym));
    }


    public void testCombinedComplicatedAllowOtherKeys() {

View Full Code Here

        assertEquals("Argument c should be correct",arg3,outp5.get(c_sym));
        assertEquals("Argument d should be correct",arg4,outp5.get(d_sym));


        assertEquals("Argument 1 should be correct",arg1,outp6.get(a_sym));
        assertEquals("Argument 2 should be correct",arg2,outp6.get(b_sym));
        assertTrue("Argument x should be correct",expected6.equal((LispValue)outp6.get(x_sym)) == lisp.T);
        assertEquals("Argument c should be correct",arg3,outp6.get(c_sym));
        assertEquals("Argument d should be correct",arg4,outp6.get(d_sym));
    }


    public void testFullKey() {

View Full Code Here

TOP

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.