コード例 #1
0
ファイル: tests.py プロジェクト: Wilfred/Minimal-scheme
 def test_vector_fill(self):
     program = "(let ((v (make-vector 1))) (vector-fill! v 5) v)"
     self.assertEvaluatesAs(
         program,
         Vector.from_list([Integer(5)]))
コード例 #2
0
ファイル: tests.py プロジェクト: Wilfred/Minimal-scheme
 def test_vector(self):
     program = "(vector 1 2)"
     self.assertEvaluatesAs(
         program,
         Vector.from_list([Integer(1), Integer(2)]))
コード例 #3
0
ファイル: tests.py プロジェクト: Wilfred/Minimal-scheme
 def test_list_to_vector(self):
     program = "(list->vector (list 1 2))"
     self.assertEvaluatesAs(
         program,
         Vector.from_list([Integer(1), Integer(2)]))
コード例 #4
0
ファイル: tests.py プロジェクト: Wilfred/Minimal-scheme
 def test_make_vector_with_init(self):
     program = '(make-vector 1 3)'
     self.assertEvaluatesAs(program, Vector.from_list([Integer(3)]))
コード例 #5
0
 def test_vector_fill(self):
     program = "(let ((v (make-vector 1))) (vector-fill! v 5) v)"
     self.assertEvaluatesAs(program, Vector.from_list([Integer(5)]))
コード例 #6
0
 def test_list_to_vector(self):
     program = "(list->vector (list 1 2))"
     self.assertEvaluatesAs(program,
                            Vector.from_list([Integer(1),
                                              Integer(2)]))
コード例 #7
0
 def test_vector(self):
     program = "(vector 1 2)"
     self.assertEvaluatesAs(program,
                            Vector.from_list([Integer(1),
                                              Integer(2)]))
コード例 #8
0
 def test_make_vector_with_init(self):
     program = '(make-vector 1 3)'
     self.assertEvaluatesAs(program, Vector.from_list([Integer(3)]))