[[ CodeResources ]] Add test

montegoulding · montegoulding · commit d14e712f8c2d · 2017-12-13T21:24:50.000+11:00
diff --git a/tests/_testlib.livecodescript b/tests/_testlib.livecodescript
@@ -138,6 +138,55 @@ private function _TestGetBuiltExtensionsFolder
 end _TestGetBuiltExtensionsFolder
 
 private command _TestLoadExtension pFolder, pPath
+   local tCodeFolder
+   put pFolder & "/code" into tCodeFolder
+   
+   if there is a folder tCodeFolder then
+      local tCodeFolders
+      put folders(tCodeFolder) into tCodeFolders
+      switch the platform
+         case "MacOS"
+            filter tCodeFolders with "*-mac*"
+            break
+         case "Win32"
+            filter tCodeFolders with "*-win*"
+            break
+         default
+            filter tCodeFolders with "*-"& toLower(the platform) & "*"
+            break
+      end switch
+      
+      local tFilteredCodeFolders
+      filter tCodeFolders with the processor & "-*" into tFilteredCodeFolders
+      split tFilteredCodeFolders by return as set
+      if the platform is "MacOS" then
+         -- explicit processor should take precedence over universal builds but
+         -- in the event multiple libraries are included and some are universal
+         -- we must merge
+         local tUniveralFilteredCodeFolders
+         filter tCodeFolders with "universal-*" into tUniveralFilteredCodeFolders
+         split tUniveralFilteredCodeFolders by return as set
+         union tFilteredCodeFolders with tUniveralFilteredCodeFolders
+      end if
+      
+      repeat for each key tFolder in tFilteredCodeFolders
+         local tLibraries
+         put files(tCodeFolder & "/" & tFolder) & return & \
+               folders(tCodeFolder & "/" & tFolder) into tLibraries
+         filter tLibraries without ".*"
+         
+         if tLibraries is not empty then
+            set the itemDelimiter to "."
+            repeat for each line tLibrary in tLibraries
+               -- remove extension
+               delete the last item of tLibrary
+               if tLibrary is not empty then
+                  set the revLibraryMapping[tLibrary] to tCodeFolder & "/" & tFolder & "/" & tLibrary
+               end if
+            end repeat
+         end if
+      end repeat
+   end if
    if there is a folder (pFolder & slash & "resources") then
       do "load extension from file pPath with resource path (pFolder & slash & " & quote & "resources" & quote & ")"
    else
diff --git a/tests/lcs-input-files/test.ini b/tests/lcs-input-files/test.ini
@@ -0,0 +1,10 @@
+; Test config file for ini_example.c and INIReaderTest.cpp
+
+[protocol]             ; Protocol configuration
+version=6              ; IPv6
+
+[user]
+name = Bob Smith       ; Spaces around '=' are stripped
+email = bob@smith.com  ; And comments (like this) ignored
+active = true          ; Test a boolean
+pi = 3.14159           ; Test a floating point number
diff --git a/tests/lcs/extensions/libraries/code.livecodescript b/tests/lcs/extensions/libraries/code.livecodescript
@@ -0,0 +1,34 @@
+script "TestExtensionCodeLibrary"
+/*
+Copyright (C) 2017 LiveCode Ltd.
+
+This file is part of LiveCode.
+
+LiveCode is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License v3 as published by the Free
+Software Foundation.
+
+LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with LiveCode.  If not see <http://www.gnu.org/licenses/>.  */
+
+on TestSetup
+	TestSkipIfNot "lcb"
+	TestLoadExtension "com.livecode.library.ini"
+end TestSetup
+
+on TestLoadCodeLibrary
+	TestAssert "library mapping is set for code library", the revLibraryMapping["inih"] is not empty
+	
+	local tFileData
+	put url ("file:" & TestGetInputFile("test.ini")) into tFileData
+	
+	local tIni
+	put iniToArray(tFileData) into tIni
+	
+	TestAssert "library extension can load code library", tIni["user"]["name"] is "Bob Smith"
+end TestLoadCodeLibrary
