From 3c8da3722d40072bd97e2a8c7410cfcdeb8ac571 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 16 Sep 2017 16:45:42 -0500
Subject: [PATCH] sequences: Add assert-string=.

assert-sequence= prints strings as sequences of numbers, which is less
useful for writing unit tests.
---
 core/sequences/sequences.factor | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f0d5648f81..c50f2538b5 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -694,6 +694,11 @@ ERROR: assert-sequence got expected ;
 : assert-sequence= ( a b -- )
     2dup sequence= [ 2drop ] [ assert-sequence ] if ;
 
+ERROR: assert-string got expected ;
+
+: assert-string= ( a b -- )
+    2dup sequence= [ 2drop ] [ assert-string ] if ;
+
 <PRIVATE
 
 : sequence-hashcode-step ( oldhash newpart -- newhash )