Index: vhUnitTest/WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml	(revision 36769)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Unishop.BeschikbareLandenSort.Sort.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Sorteert landenlijst alfabetisch wisselt 2 landen van plaats">
+<Implementation><![CDATA[
+	Set Sorter = ##class(TECH.Algo.Sort.InsertionSort).%New()
+	Set Comparator = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
+	
+	#Dim EuropeseLandenList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AB","AB"))
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AA","AA"))
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AB")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AA")
+
+	Do Sorter.Sort(.EuropeseLandenList, Comparator)
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AA")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AB")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Sorteert landenlijst alfabetisch hoeft geen landen van plaats te wisselen">
+<Implementation><![CDATA[
+	Set Sorter = ##class(TECH.Algo.Sort.InsertionSort).%New()
+	Set Comparator = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
+	
+	#Dim EuropeseLandenList As %ListOfObjects = ##class(%ListOfObjects).%New()
+
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AA","AA"))
+	Do EuropeseLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("AB","AB"))
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AA")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AB")
+
+	Do Sorter.Sort(.EuropeseLandenList, Comparator)
+	
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(1).Naam, "AA")
+	Do $$$AssertEquals(EuropeseLandenList.GetAt(2).Naam, "AB")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36769 refers to a dead (removed) revision in file `WSimpl/Unishop/BeschikbareLandenSort/Sort/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?