mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 14:32:11 -08:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'add-missing-break-statement' into 'develop'

Browse source 
Add missing break statement to cl_hash_table_test

See merge request embeddable-common-lisp/ecl!270
This commit is contained in:
Daniel Kochmański 2022-02-28 07:50:31 +00:00
commit 2c1f94cc0d
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/hash.d
View file

@ -1239,7 +1239,7 @@ cl_hash_table_test(cl_object ht)
case ecl_htt_equal: output = @'equal'; break;
case ecl_htt_equalp: output = @'equalp'; break;
case ecl_htt_pack: output = @'equal'; break;
case ecl_htt_generic: output = ht->hash.generic_test;
case ecl_htt_generic: output = ht->hash.generic_test; break;
default: FEerror("hash-table-test: unknown test.", 0);
}
@(return output);

1
src/tests/normal-tests/hash-tables.lsp
View file

@ -147,6 +147,7 @@
(signals error (gethash "foobar" ht))
(signals error (setf (gethash "foobar" ht) 15))
(finishes (remhash 3 ht))
(finishes (hash-table-test ht))
(is (null (gethash 1 ht)))
(finishes (setf (gethash 55 ht) 0))
(is (= (gethash 13 ht) 0)))))