Test output for sets [fail]

Testing time: 0s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null
Test from group sets-conversion: (let* ((a (list->set (list 0 1 2))) (b (set-copy a))) (set-remove! b 1) (set-remove! b 2) (list (sort (set->list a) <) (set->list b)))... FAIL
Test from group sets-conversion failed: (let* ((a (list->set (list 0 1 2))) (b (set-copy a))) (set-remove! b 1) (set-remove! b 2) (list (sort (set->list a) <) (set->list b)))
Expected: ((0 1 2) (0))
Received: ((0 1 2) (1 0 2))

Test from group sets-conversion: (let ((a (list->set (iota 10)))) (set-size a))... PASS
Test from group sets-conversion: (sort (set->list (list->set (iota 10))) <)... PASS
Test from group sets-size: (let ((a (list->set (list 0 1 2)))) (set-add! a 1) (set-add! a 1) (set-add! a 1) (set-remove! a 2) (sort (set->list a) <))... PASS
Test from group sets-for-each: (let ((a (list->set (iota 10))) (sum 0)) (set-for-each (lambda (elt) (set! sum (+ sum elt))) a) sum)... PASS
Test from group sets-has-member: (not (set-has-member? (make-empty-set) 0))... PASS
Test from group sets-has-member: (let ((a (list->set (list 0)))) (and (set-has-member? a 0) (not (set-has-member? a 1))))... PASS
Test from group sets-is-subset: (let ((a (make-empty-set)) (b (make-empty-set))) (set-add! a 0) (set-add! a 1) (set-add! b 0) (set-add! b 1) (set-add! b 2) (and (set-is-subset? (make-empty-set) a) (set-is-subset? (make-empty-set) (make-empty-set)) (not (set-is-subset? a (make-empty-set))) (set-is-subset? a b) (not (set-is-subset? b a)) (set-is-proper-subset? a b) (set-is-subset? b b) (not (set-is-proper-subset? b b))))... PASS
Test from group sets-union: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (sort (set->list (set-union a b)) <))... FAIL
Test from group sets-union failed: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (sort (set->list (set-union a b)) <))
Expected: (0 1 2 3 4)
Received: (0 0 1 2 3 4)

Test from group sets-union: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (set-union! a b) (sort (set->list a) <))... PASS
Test from group sets-difference: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (sort (set->list (set-difference a b)) <))... PASS
Test from group sets-difference: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (set-difference! a b) (sort (set->list a) <))... PASS
Test from group sets-intersection: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (set->list (set-intersection a b)))... PASS
Test from group sets-intersection: (let ((a (list->set (list 0 1 2))) (b (list->set (list 0 3 4)))) (set-intersection! a b) (set->list a))... PASS
Tests failed.
Tests defined: 14
Tests executed: 14 (100%)
Tests failed: 2 (executed: 14.2857142857143%, defined: 14.2857142857143%)

Error: Unit tests failed

	Call history:

	<syntax>	  (quote sets)
	<syntax>	  (##core#quote sets)
	<syntax>	  (import sets)
	<syntax>	  (import scheme chicken posix extras srfi-1 data-structures embedded-test srfi-69)
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<eval>	  (##sys#require (quote embedded-test))
	<eval>	  (##sys#load-library (quote posix) #f)
	<eval>	  (##sys#require (quote sets))
	<syntax>	  (setenv "TESTS" "yes")
	<eval>	  (setenv "TESTS" "yes")
	<syntax>	  (setenv "TESTS_VERBOSE" "yes")
	<eval>	  (setenv "TESTS_VERBOSE" "yes")
	<syntax>	  (run-tests)
	<eval>	  (run-tests)	<--