Fixes HUD sunglasses deconstruction (#15444)

* sunglasses

* Unit test test

* Unit test test tested

code/modules/unit_tests/_unit_tests.dm

@@ -3,6 +3,7 @@
 
 #ifdef UNIT_TESTS
 #include "component_tests.dm"
+#include "crafting_lists.dm"
 #include "log_format.dm"
 #include "map_templates.dm"
 #include "reagent_id_typos.dm"

code/modules/unit_tests/crafting_lists.dm

@@ -0,0 +1,5 @@
+/datum/unit_test/crafting_lists/Run()
+	for(var/I in subtypesof(/datum/crafting_recipe))
+		var/datum/crafting_recipe/C = new I()
+		if(!islist(C.result))
+			Fail("Expected a list for the 'result' of [C.type].")