Changeset 3506


Ignore:
Timestamp:
08/25/03 15:01:38 (19 years ago)
Author:
piso
Message:

Removed tests for DEFVAR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Tests.java

    r2802 r3506  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Tests.java,v 1.21 2003-07-06 01:17:55 piso Exp $
     5 * $Id: Tests.java,v 1.22 2003-08-25 15:01:38 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5151
    5252        // defvar
    53         verify("foo", ERROR);
    54         verify("(defvar foo)", "foo");
    55         verify("foo", ERROR);
    56         verify("(defvar foo 1234)", "foo");
    57         verify("foo", "1234");
    58         verify("(defvar foo 'bar)", "foo");
    59         verify("foo", "1234");
     53//         verify("foo", ERROR);
     54//         verify("(defvar foo)", "foo");
     55//         verify("foo", ERROR);
     56//         verify("(defvar foo 1234)", "foo");
     57//         verify("foo", "1234");
     58//         verify("(defvar foo 'bar)", "foo");
     59//         verify("foo", "1234");
    6060
    6161        verify("(setq)", "NIL");
     
    7272
    7373        // setq, let
    74         verify("(defvar *x* 1234)", "*x*");
    75         verify("*x*", "1234");
    76         verify("(let ((*x* 10)) (setq *x* 23))", "23");
    77         verify("*x*", "1234");
     74//         verify("(defvar *x* 1234)", "*x*");
     75//         verify("*x*", "1234");
     76//         verify("(let ((*x* 10)) (setq *x* 23))", "23");
     77//         verify("*x*", "1234");
    7878
    7979        verify("(setq foo 'bar)", "bar");
Note: See TracChangeset for help on using the changeset viewer.