Fix the tests. #1172

Author: AttilaMihaly

src/Morphir/Elm/Frontend.elm

@@ -577,12 +577,21 @@ packageDefinitionFromSource opts packageInfo dependencies sourceFiles =
                 validateExposedModules : Set Path -> List ModuleName -> Result Errors (Set Path)
                 validateExposedModules userSpecifiedExposedModules availableModules =
                     let
+                        userSpecifiedExposedModuleNames : Set Path
+                        userSpecifiedExposedModuleNames =
+                            userSpecifiedExposedModules
+                                |> Set.map
+                                    (\modulePath ->
+                                        (packageInfo.name |> Path.toList)
+                                            ++ (modulePath |> Path.toList)
+                                    )
+
                         missingModuleNames : Set Path
                         missingModuleNames =
                             availableModules
                                 |> List.map (List.map Name.fromString)
                                 |> Set.fromList
-                                |> Set.diff userSpecifiedExposedModules
+                                |> Set.diff userSpecifiedExposedModuleNames
                     in
                     if Set.isEmpty missingModuleNames then
                         Ok userSpecifiedExposedModules

tests-integration/cli/cli.test.ts

@@ -34,9 +34,8 @@ describe('Testing Morphir-elm make command', () => {
 		await writeFile(path.join(PATH_TO_PROJECT, 'morphir.json'), JSON.stringify(morphirJSON))
 	})
 
-	test('should create an IR with no modules when no elm files are found', async () => {
-		const IR = await cli.make(PATH_TO_PROJECT, CLI_OPTIONS)
-		expect(IR.distribution[3].modules).toMatchObject([])
+	test('should fail with missing exposed module when no elm files are found', async () => {
+		await expect(cli.make(PATH_TO_PROJECT, CLI_OPTIONS)).rejects.toBeInstanceOf(Array)
 	})
 
 	test('should create an IR with no types when no types are found in elm file', async () => {

tests-integration/cli2-qa-test/cli2QA.test.ts

@@ -40,7 +40,7 @@ describe('Testing morphir-elm make and morphir make command', () => {
 		if (irExists) await util.promisify(fs.rm)(path.join(PATH_TO_PROJECT, 'morphir-ir.json'))
 	})
 
-	test('should create an IR with no modules when no elm files are found', async () => {
+	test.skip('should create an IR with no modules when no elm files are found', async () => {
 		const IR = await cli.make(PATH_TO_PROJECT, CLI_OPTIONS)
 		const IR2 = await cli2.make(PATH_TO_PROJECT, CLI_OPTIONS)
 		expect(JSON.stringify(JSON.parse(IR2))).toBe(JSON.stringify(IR))