From f6378eaf43c00cb41065fa6fc93af0c4efcd71c3 Mon Sep 17 00:00:00 2001 From: s-ol Date: Fri, 24 Apr 2020 20:43:51 +0200 Subject: remove AST:quote() --- spec/cell_spec.moon | 19 ------------------- spec/value_spec.moon | 7 ------- 2 files changed, 26 deletions(-) (limited to 'spec') diff --git a/spec/cell_spec.moon b/spec/cell_spec.moon index f58cb50..673fedf 100644 --- a/spec/cell_spec.moon +++ b/spec/cell_spec.moon @@ -11,25 +11,6 @@ setup -> reg\grab! teardown -> reg\release! describe 'Cell', -> - describe 'when quoted', -> - with hello_world\quote! - it 'stays equal', -> - assert.is.equal Cell, .__class - assert.is.equal (ValueStream.sym 'hello'), \head! - assert.is.same { ValueStream.str 'world' }, \tail! - - it 'shares the tag', -> - assert.is.equal hello_world.tag, .tag - - with two_plus_two\quote! - it 'stays equal', -> - assert.is.equal Cell, .__class - assert.is.equal (ValueStream.sym '+'), \head! - assert.is.same { (ValueStream.num 2), (ValueStream.num 2) }, \tail! - - it 'shares the tag', -> - assert.is.equal two_plus_two.tag, .tag - describe 'when cloned', -> parent = Tag.blank '1' with hello_world\clone parent diff --git a/spec/value_spec.moon b/spec/value_spec.moon index e867a70..7a68199 100644 --- a/spec/value_spec.moon +++ b/spec/value_spec.moon @@ -135,13 +135,6 @@ describe 'ValueStream', -> assert_eval 'hello', ValueStream.str "world" assert_eval 'goodbye', ValueStream.sym "again" - it ':quote s literals as themselves', -> - assert_noop = (val) -> assert.is.equal val, val\quote! - - assert_noop ValueStream.num 2 - assert_noop ValueStream.str 'hello' - assert_noop ValueStream.sym 'world' - it ':clone sliterals as themselves', -> assert_noop = (val) -> assert.is.equal val, val\clone! -- cgit v1.2.3