// EQL Test for CS 51 Introduction to C
//
// File:     eql_test.h
// Author:   course ( Bob Walton <walton@deas> )
// Version:  1

// This file contains an atom EQL test for the
// programming of the CS 51 LISP assignments in C++.
//

#include "intro51.h"

int main ( )
{
    initialize_memory ();

    object * im1a = make_integer ( -1 );
    object * i0a  = make_integer (  0 );
    object * i1a  = make_integer (  1 );

    object * im1b = make_integer ( -1 );
    object * i0b  = make_integer (  0 );
    object * i1b  = make_integer (  1 );

    assert ( im1a == im1b );
    assert ( i0a == i0b );
    assert ( i1a == i1b );

    cout << "Integers OK." << endl;

    object * a1 = make_symbol ( "A" );
    object * b1 = make_symbol ( "B" );

    object * a2 = make_symbol ( "A" );
    object * b2 = make_symbol ( "B" );

    object * nil = make_symbol ( "NIL" );
    object * t = make_symbol ( "T" );

    assert ( a1 == a2 );
    assert ( b1 == b2 );
    assert ( nil == NIL );
    assert ( t == T );

    cout << "Symbols OK." << endl;

    return 0;
}