Index: vhUnitTest/DOM/PM/TestProductAPI.cls.xml
===================================================================
diff -u -r1133 -r1341
--- vhUnitTest/DOM/PM/TestProductAPI.cls.xml	(.../TestProductAPI.cls.xml)	(revision 1133)
+++ vhUnitTest/DOM/PM/TestProductAPI.cls.xml	(.../TestProductAPI.cls.xml)	(revision 1341)
@@ -31,11 +31,27 @@
 	// Nagaan of er kenmerken zijn, dit zou niet mogen
 	Do $$$AssertFalse($Data(^Prod.Ken.DataDefinitieD(GekopieerdProduct.GeefPRNr())),"Er zijn geen kenmerken")
 	
+	// Nagaan of PRLINK is gekopieerd
+	Do $$$AssertTrue($Data(^PRLINK("D",GekopieerdProduct.GeefPRNr())),"Er zijn PRLINK nodes")
+	
+	Do $$$AssertTrue($Data(^PRLINK("IKM",148413,GekopieerdProduct.GeefPRNr())),"De node is aanwezig")
+	Do $$$AssertTrue($Data(^PRLINK("IKM",191578,GekopieerdProduct.GeefPRNr())),"De node is aanwezig")
+	Do $$$AssertTrue($Data(^PRLINK("IKM",191579,GekopieerdProduct.GeefPRNr())),"De node is aanwezig")
+	Do $$$AssertTrue($Data(^PRLINK("IKM",286261,GekopieerdProduct.GeefPRNr())),"De node is aanwezig")
+	
 	Kill ^KPR(200030,"L1")
 	Kill ^KPR(200030,"S1")
 	Kill ^KPR(200030,"W1")
 	
 	Kill ^KPR(GekopieerdProduct.GeefPRNr())
+	Kill ^PRBS("BS",GekopieerdProduct.GeefPRNr())
+	Kill ^PRBS("IP",GekopieerdProduct.GeefPRNr())
+	Kill ^PRLINK("D",GekopieerdProduct.GeefPRNr())
+	
+	Kill ^PRLINK("IKM",148413,GekopieerdProduct.GeefPRNr())
+	Kill ^PRLINK("IKM",191578,GekopieerdProduct.GeefPRNr())
+	Kill ^PRLINK("IKM",191579,GekopieerdProduct.GeefPRNr())
+	Kill ^PRLINK("IKM",286261,GekopieerdProduct.GeefPRNr())
 ]]></Implementation>
 </Method>