mirrors: make failures check error type.

master
John Benediktsson 2020-04-13 10:53:22 -07:00
parent 90fcf7cfd5
commit dc78ea1ac8
1 changed files with 2 additions and 2 deletions

View File

@ -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