Simplify test

Author: mk

test/nextjournal/clerk/viewer_test.clj

@@ -343,22 +343,23 @@
                  :blocks
                  (tree-seq coll? seq)
                  (keep :nextjournal/viewer)
-                 (filter #(str/starts-with? (str %) "nextjournal.clerk.viewer/vector-viewer"))))))
+                 (filter #{'nextjournal.clerk.viewer/vector-viewer$5dsD1KJESfc8Dy8gPeGQfZCX2ayE8f})))))
 
     (is (= 5
            (count
             (->> (eval/eval-string "(nextjournal.clerk/with-viewer {} {:nextjournal.clerk/budget 5} (reduce (fn [acc i] (vector acc)) :fin (range 15 0 -1)))")
                  view/doc->viewer v/->value :blocks
                  (tree-seq coll? seq)
                  (keep :nextjournal/viewer)
-                 (filter #(str/starts-with? (str %) "nextjournal.clerk.viewer/vector-viewer"))))))
+                 (filter #{'nextjournal.clerk.viewer/vector-viewer$5dsD1KJESfc8Dy8gPeGQfZCX2ayE8f})))))
 
     (is (= 101
            (count
             (->> (eval/eval-string "^{:nextjournal.clerk/budget nil}(reduce (fn [acc i] (vector i acc)) :fin (range 101 0 -1))")
                  view/doc->viewer v/->value :blocks
                  (tree-seq coll? seq)
-                 (filter #(str/starts-with? (str %) "nextjournal.clerk.viewer/vector-viewer"))))))))
+                 (keep :nextjournal/viewer)
+                 (filter #{'nextjournal.clerk.viewer/vector-viewer$5dsD1KJESfc8Dy8gPeGQfZCX2ayE8f})))))))
 
 (deftest ->edn
   (testing "normal symbols and keywords"