mirrors: make failures check error type.
parent
90fcf7cfd5
commit
dc78ea1ac8
|
@ -49,8 +49,8 @@ TUPLE: color
|
||||||
{ green integer }
|
{ green integer }
|
||||||
{ blue integer } ;
|
{ blue integer } ;
|
||||||
|
|
||||||
[ \ + make-mirror clear-assoc ] must-fail
|
[ \ + make-mirror clear-assoc ] [ mirror-slot-removal? ] must-fail-with
|
||||||
[ \ + make-mirror [ "name" ] dip delete-at ] must-fail
|
[ \ + make-mirror [ "name" ] dip delete-at ] [ mirror-slot-removal? ] must-fail-with
|
||||||
|
|
||||||
! Test reshaping with a mirror
|
! Test reshaping with a mirror
|
||||||
1 2 3 color boa <mirror> "mirror" set
|
1 2 3 color boa <mirror> "mirror" set
|
||||||
|
|
Loading…
Reference in New Issue