Python print_scheme_object Examples

Example #1

File: test_05_reader_malformed_list.py Project: jaenthemaen/lisp-interpreter-python

    def test_list_with_two_items_without_opening_bracket(self):
        with self.assertRaises(readerEx.MalformedListException) as cm:
            self.stream.set_stream('10   123)')
            result = reader.read_from_stream(self.stream)
            printer.print_scheme_object(result, self.output_stream)

        desired_exception = cm.exception
        self.assertTrue(isinstance(desired_exception, readerEx.MalformedListException))

Example #2

File: test_05_reader_malformed_list.py Project: jaenthemaen/lisp-interpreter-python

    def test_two_consecutive_malformed_lists(self):
        with self.assertRaises(readerEx.MalformedListException) as cm:
            self.stream.set_stream('10   123)')
            result = reader.read_from_stream(self.stream)
            printer.print_scheme_object(result, self.output_stream)

        desired_exception = cm.exception
        self.assertTrue(isinstance(desired_exception, readerEx.MalformedListException))

        with self.assertRaises(readerEx.MalformedListException) as cm2:
            self.stream.set_stream('asd   1234)')
            result = reader.read_from_stream(self.stream)
            printer.print_scheme_object(result, self.output_stream)

        desired_exception = cm2.exception
        self.assertTrue(isinstance(desired_exception, readerEx.MalformedListException))

Example #3

File: test_07_reader_quote.py Project: jaenthemaen/lisp-interpreter-python

 def test_nested_quote(self):
     self.stream.set_stream("(x (a '(a b c d e f g)))")
     result = reader.read_from_stream(self.stream)
     printer.print_scheme_object(result, self.output_stream)
     self.assertEqual(self.output_stream.get_stream(), "(x (a (quote (a b c d e f g))))")

Example #4

File: evaluator.py Project: jaenthemaen/lisp-interpreter-python

def print_result(c):
    global output_stream
    printer.print_scheme_object(c.args[0], output_stream)
    return None

Example #5

File: test_31_printer_nested_lists.py Project: jaenthemaen/lisp-interpreter-python

 def test_nested_list_plus_trailing(self):
     self.read_stream.set_stream("(a b c d (some-variable 12345) 10 15)")
     result = reader.read_from_stream(self.read_stream)
     printer.print_scheme_object(result, self.write_stream)
     self.assertEqual(self.write_stream.get_stream(), "(a b c d (some-variable 12345) 10 15)", "instead: " + self.write_stream.get_stream())

Example #6

File: test_30_printer_basic.py Project: jaenthemaen/lisp-interpreter-python

 def test_list_with_symbol_and_integer(self):
     self.read_stream.set_stream("(some-variable 12345)")
     result = reader.read_from_stream(self.read_stream)
     printer.print_scheme_object(result, self.write_stream)
     self.assertEqual(self.write_stream.get_stream(), "(some-variable 12345)", "instead: " + self.write_stream.get_stream())

Example #7

File: test_30_printer_basic.py Project: jaenthemaen/lisp-interpreter-python

 def test_float(self):
     self.read_stream.set_stream("0.34")
     result = reader.read_from_stream(self.read_stream)
     printer.print_scheme_object(result, self.write_stream)
     self.assertEqual(self.write_stream.get_stream(), "0.34", "instead: " + self.write_stream.get_stream())

Example #8

File: test_33_printer_malformed_cons.py Project: jaenthemaen/lisp-interpreter-python

 def test_nested_malformed_cons(self):
     parsed = SchemeCons(SchemeInteger(1), SchemeCons(SchemeCons(SchemeInteger(5), SchemeInteger(10))
                                                      , SchemeNil()))
     printer.print_scheme_object(parsed, self.output_stream)
     self.assertEqual(self.output_stream.get_stream(), "(1 (5 . 10))")

Example #9

File: test_32_printer_quote.py Project: jaenthemaen/lisp-interpreter-python

 def test_unevaled_nested_list_quote(self):
     self.input_stream.set_stream("'(a b (898 123.67 \"abcde\") c d e)")
     parsed = reader.read_from_stream(self.input_stream)
     printer.print_scheme_object(parsed, self.output_stream)
     self.assertEqual(self.output_stream.get_stream(), "(quote (a b (898 123.67 \"abcde\") c d e))")

Example #10

File: test_32_printer_quote.py Project: jaenthemaen/lisp-interpreter-python

 def test_unevaled_integer_quote(self):
     self.input_stream.set_stream("'10")
     parsed = reader.read_from_stream(self.input_stream)
     printer.print_scheme_object(parsed, self.output_stream)
     self.assertEqual(self.output_stream.get_stream(), "(quote 10)")