Skip to content

Various small bugfixes #539

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 6 commits into from
Jul 22, 2025
Merged

Various small bugfixes #539

merged 6 commits into from
Jul 22, 2025

Conversation

HLWeil
Copy link
Member

@HLWeil HLWeil commented Jul 21, 2025

Various small bugfixes

closes #512
closes #515
closes #534
closes #538

| Some name, _ when name.Contains "_" ->
let lastUnderScoreIndex = name.LastIndexOf '_'
name.Remove lastUnderScoreIndex
//| Some name, _ when name.Contains "_" ->
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

maybe a comment why and a reference to the related issue?

@@ -78,7 +78,7 @@ let tests_gitContracts = testList "gitContracts" [
testCase "init_basic" <| fun _ ->
let arc = ARC("MyARC")
let contracts = arc.GetGitInitContracts()
Expect.equal contracts.Length 2 "Should be two contracts"
Expect.equal contracts.Length 1 "Should be two contracts"
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

"Should be two contracts"

must be updated

@@ -113,19 +113,31 @@ let tests_gitContracts = testList "gitContracts" [
let arc = ARC("MyARC")
let remote = @"www.fantasyGit.net/MyAccount/MyRepo"
let contracts = arc.GetGitInitContracts(repositoryAddress = remote)
Expect.equal contracts.Length 3 "Should be three contracts"
let dto = Expect.wantSome contracts.[2].DTO "Should have a DTO"
Expect.equal contracts.Length 2 "Should be three contracts"
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

contracts.Length 2 "Should be three contracts"

Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

this issue arises in multiple cases

@@ -534,6 +533,35 @@ let private tests_ArcTablesProcessSeq =
Expect.arcTableEqual resultTables.Tables.[0] expectedTables.[0] "Table 1 should be equal"
Expect.arcTableEqual resultTables.Tables.[1] expectedTables.[1] "Table 2 should be equal"
)
testCase "TableNameUndescore" (fun () ->
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

love that you added issue references to the other tests, here you missed it!

@HLWeil
Copy link
Member Author

HLWeil commented Jul 22, 2025

Thanks for your nitpicks, @Freymaurer. I made the changes accordingly and will merge now!

@HLWeil HLWeil merged commit a98b25f into main Jul 22, 2025
2 checks passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
2 participants