diff --git a/basis/images/bitmap/bitmap-tests.factor b/basis/images/bitmap/bitmap-tests.factor
index d74c69ef1b..e154df26a1 100644
--- a/basis/images/bitmap/bitmap-tests.factor
+++ b/basis/images/bitmap/bitmap-tests.factor
@@ -1,18 +1,15 @@
 USING: images.bitmap images.viewer io.encodings.binary
-io.files io.files.unique kernel tools.test images.loader ;
+io.files io.files.unique kernel tools.test images.loader
+literals sequences ;
 IN: images.bitmap.tests
 
-: test-bitmap24 ( -- path )
-    "vocab:images/test-images/thiswayup24.bmp" ;
+CONSTANT: test-bitmap24 "vocab:images/test-images/thiswayup24.bmp"
 
-: test-bitmap8 ( -- path )
-    "vocab:images/test-images/rgb8bit.bmp" ;
+CONSTANT: test-bitmap8 "vocab:images/test-images/rgb8bit.bmp"
 
-: test-bitmap4 ( -- path )
-    "vocab:images/test-images/rgb4bit.bmp" ;
+CONSTANT: test-bitmap4 "vocab:images/test-images/rgb4bit.bmp"
 
-: test-bitmap1 ( -- path )
-    "vocab:images/test-images/1bit.bmp" ;
+CONSTANT: test-bitmap1 "vocab:images/test-images/1bit.bmp"
 
 [ t ]
 [
@@ -22,3 +19,9 @@ IN: images.bitmap.tests
     "test-bitmap24" unique-file
     [ save-bitmap ] [ binary file-contents ] bi =
 ] unit-test
+
+{
+    $ test-bitmap8
+    $ test-bitmap24
+    "vocab:ui/render/test/reference.bmp"
+} [ [ ] swap [ load-image drop ] curry unit-test ] each
\ No newline at end of file