;; Test the modifications I've made to APersistentList and ASeq to make them

; Using plain asserts so I don't depend on any unit test library.

(defn run-tests [ctr]

  (assert (instance? java.util.List (ctr 0 1 2)))
  
  (assert (= (. (ctr 0 1 2 3 4 5) get 5) 5))
  
  (assert (= (. (ctr 0 1 2) indexOf 3) -1))
  
  (assert (= (. (ctr 0 1 2) indexOf 2) 2))
  
  (let [i1 (. (ctr 1 2 3 4 5) listIterator)
        i2 (. (ctr 1 2 3 4 5) listIterator 2)]
    
    (assert (= (.next i1) 1))
    (assert (= (.next i1) 2))
    (assert (= (.nextIndex i1) 2))
    (assert (= (.previous i1) 2))
    
    (assert (= (.next i2) 3))
    (assert (= (.next i2) 4))
    (assert (= (.nextIndex i2) 4))
    (assert (= (.previous i2) 4)))

  (assert (= (.subList (ctr 0 1 2 3) 2 2) []))
  
  (assert (= (.subList (ctr 0 1 2) 1 2) [1])))
    


(println "Testing vectors")
(run-tests vector)

(println "Testing seqs")
(run-tests list)

(println "Done")