diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testDoItEnvironment.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testDoItEnvironment.st index 374da223..bdef004c 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testDoItEnvironment.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testDoItEnvironment.st @@ -1,6 +1,7 @@ tests testDoItEnvironment | editor old | + editor := MNEditor new. self deny: editor environment isNil. self deny: editor doItEnvironment isNil. diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testLocalVariableStatement.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testLocalVariableStatement.st index d29eed1a..bec2313a 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testLocalVariableStatement.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testLocalVariableStatement.st @@ -1,6 +1,7 @@ tests testLocalVariableStatement -| editor | + | editor | + editor := MNEditor new. editor updateContents: '| var | var := 1. var := var + 1.'. self assert: (editor localVariablesStatement: 'var := var + 1.') = '| var |var := (self localVariables at: ''var'') + 1.^ ((Dictionary new) at: ''var'' put: var; yourself)'. \ No newline at end of file diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testMenuItems.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testMenuItems.st index 5aecf120..31f4d309 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testMenuItems.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testMenuItems.st @@ -1,5 +1,6 @@ tests testMenuItems | editor | + editor := MNEditor new. editor addModelItemsToWindowMenu: MenuMorph new. \ No newline at end of file diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenEditor.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenEditor.st index 34432a1d..deccf5e5 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenEditor.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenEditor.st @@ -1,6 +1,7 @@ tests testOpenEditor | editor | + editor := MNEditor new. self ensureAbandonOf: editor openEditor do: [ :morph | diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenPreview.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenPreview.st index cb9e73c6..af6a1906 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenPreview.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testOpenPreview.st @@ -1,6 +1,7 @@ tests testOpenPreview | editor | + editor := MNEditor new. self ensureAbandonOf: editor openPreview do: [ :morph | diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testSmuflFontDisplay.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testSmuflFontDisplay.st index a18d6521..22b116f0 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testSmuflFontDisplay.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testSmuflFontDisplay.st @@ -1,6 +1,7 @@ tests testSmuflFontDisplay | drawer | + drawer := MNSmuflDrawer new canvas: self hiddenCanvas asBalloonCanvas; color: Color red; diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testStatementMapping.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testStatementMapping.st index 2d3723f2..bdd38434 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testStatementMapping.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testStatementMapping.st @@ -1,6 +1,7 @@ tests testStatementMapping | editor | + editor := MNEditor new. editor updateContents: 'g4/8.g4/4.'. editor evaluateContentList. diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testTextContents.st b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testTextContents.st index b3f1cd8a..a9e0b4c7 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testTextContents.st +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/instance/testTextContents.st @@ -1,6 +1,7 @@ tests testTextContents | editor | + editor := MNEditor new. editor textContents: '123'. self assert: '123' equals: editor contents. \ No newline at end of file diff --git a/packages/MusicNotation-Tests.package/MNEditorTest.class/methodProperties.json b/packages/MusicNotation-Tests.package/MNEditorTest.class/methodProperties.json index b72ec642..0bddf2db 100644 --- a/packages/MusicNotation-Tests.package/MNEditorTest.class/methodProperties.json +++ b/packages/MusicNotation-Tests.package/MNEditorTest.class/methodProperties.json @@ -4,12 +4,12 @@ "instance" : { "ensureAbandonOf:do:" : "mgjm 7/5/2019 20:47", "hiddenCanvas" : "mgjm 7/5/2019 20:06", - "testDoItEnvironment" : "fb 7/25/2019 19:32", - "testLocalVariableStatement" : "RAD 6/29/2021 12:42", - "testMenuItems" : "mgjm 7/5/2019 20:23", - "testOpenEditor" : "RAD 5/27/2021 14:20", + "testDoItEnvironment" : "RAD 7/3/2021 12:21", + "testLocalVariableStatement" : "RAD 7/3/2021 12:21", + "testMenuItems" : "RAD 7/3/2021 12:21", + "testOpenEditor" : "RAD 7/3/2021 12:21", "testOpenEditorClass" : "mgjm 7/5/2019 20:44", - "testOpenPreview" : "mgjm 7/5/2019 20:47", - "testSmuflFontDisplay" : "mgjm 7/5/2019 20:43", - "testStatementMapping" : "RAD 6/11/2021 19:33", - "testTextContents" : "mgjm 7/5/2019 20:30" } } + "testOpenPreview" : "RAD 7/3/2021 12:21", + "testSmuflFontDisplay" : "RAD 7/3/2021 12:21", + "testStatementMapping" : "RAD 7/3/2021 12:21", + "testTextContents" : "RAD 7/3/2021 12:21" } } diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/README.md b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/README.md index e69de29b..99cc3c73 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/README.md +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/README.md @@ -0,0 +1 @@ +I am a class to test the ledger lines. \ No newline at end of file diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/createNoteWithDuration.step.octave..st b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/createNoteWithDuration.step.octave..st index 3e381beb..5f286290 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/createNoteWithDuration.step.octave..st +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/createNoteWithDuration.step.octave..st @@ -1,4 +1,4 @@ -as yet unclassified +tests createNoteWithDuration: aFraction step: aSymbol octave: aNumber | pitch note noteMorph | diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testFirstLedgerLine.st b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testFirstLedgerLine.st index 79225b22..cb48aa35 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testFirstLedgerLine.st +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testFirstLedgerLine.st @@ -1,15 +1,16 @@ -as yet unclassified +tests testFirstLedgerLine "Ignore while linting" | noteC4 noteC5 noteC6 offset | + offset := 2. noteC4 := self createNoteWithDuration: (1/8) step: $c octave: 4. noteC5 := self createNoteWithDuration: (1/8) step: $c octave: 5. noteC6 := self createNoteWithDuration: (1/8) step: $c octave: 6. - noteC4 noteLayout lines at: 1 put: ((noteC4 noteLayout lines at: 1) - offset). - noteC5 noteLayout lines at: 1 put: ((noteC5 noteLayout lines at: 1) - offset). - noteC6 noteLayout lines at: 1 put: ((noteC6 noteLayout lines at: 1) - offset). + noteC4 noteLayout lines at: 1 put: ((noteC4 noteLayout lines first) - offset). + noteC5 noteLayout lines at: 1 put: ((noteC5 noteLayout lines first) - offset). + noteC6 noteLayout lines at: 1 put: ((noteC6 noteLayout lines first) - offset). self assert: 3 equals: (noteC4 noteLayout firstLedgerLine). self assert: 0 equals: (noteC5 noteLayout firstLedgerLine). diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testLastLedgerLine.st b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testLastLedgerLine.st index ae988c6f..94ecff5f 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testLastLedgerLine.st +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testLastLedgerLine.st @@ -1,15 +1,16 @@ -as yet unclassified +tests testLastLedgerLine "Ignore while linting" | noteC4 noteC5 noteC6 offset | + offset := 2. noteC4 := self createNoteWithDuration: (1/8) step: $c octave: 4. noteC5 := self createNoteWithDuration: (1/8) step: $c octave: 5. noteC6 := self createNoteWithDuration: (1/8) step: $c octave: 6. - noteC4 noteLayout lines at: 1 put: ((noteC4 noteLayout lines at: 1) - offset). - noteC5 noteLayout lines at: 1 put: ((noteC5 noteLayout lines at: 1) - offset). - noteC6 noteLayout lines at: 1 put: ((noteC6 noteLayout lines at: 1) - offset). + noteC4 noteLayout lines at: 1 put: ((noteC4 noteLayout lines first) - offset). + noteC5 noteLayout lines at: 1 put: ((noteC5 noteLayout lines first) - offset). + noteC6 noteLayout lines at: 1 put: ((noteC6 noteLayout lines first) - offset). self assert: 3 equals: (noteC4 noteLayout lastLedgerLine). self assert: -0.5 equals: (noteC5 noteLayout lastLedgerLine). diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testNeedsLedgerLine.st b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testNeedsLedgerLine.st index 018afe5b..5af186f2 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testNeedsLedgerLine.st +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/instance/testNeedsLedgerLine.st @@ -1,15 +1,16 @@ -as yet unclassified +tests testNeedsLedgerLine "Ignore while linting" | noteC4 noteC5 noteC6 offset | + offset := 2. noteC4 := self createNoteWithDuration: (1/8) step: $c octave: 4. noteC5 := self createNoteWithDuration: (1/8) step: $c octave: 5. noteC6 := self createNoteWithDuration: (1/8) step: $c octave: 6. - noteC4 noteLayout lines at: 1 put: ((noteC4 noteLayout lines at: 1) - offset). - noteC5 noteLayout lines at: 1 put: ((noteC5 noteLayout lines at: 1) - offset). - noteC6 noteLayout lines at: 1 put: ((noteC6 noteLayout lines at: 1) - offset). + noteC4 noteLayout lines at: 1 put: ((noteC4 noteLayout lines first) - offset). + noteC5 noteLayout lines at: 1 put: ((noteC5 noteLayout lines first) - offset). + noteC6 noteLayout lines at: 1 put: ((noteC6 noteLayout lines first) - offset). self assert: true equals: (noteC4 noteLayout needsLedgerLines). self assert: false equals: (noteC5 noteLayout needsLedgerLines). diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/methodProperties.json b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/methodProperties.json index 3190a1ae..7953f35f 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/methodProperties.json +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/methodProperties.json @@ -3,6 +3,6 @@ }, "instance" : { "createNoteWithDuration:step:octave:" : "LH 6/30/2021 21:08", - "testFirstLedgerLine" : "LH 6/30/2021 21:52", - "testLastLedgerLine" : "LH 6/30/2021 21:52", - "testNeedsLedgerLine" : "LH 6/30/2021 21:58" } } + "testFirstLedgerLine" : "RAD 7/3/2021 12:28", + "testLastLedgerLine" : "RAD 7/3/2021 12:29", + "testNeedsLedgerLine" : "RAD 7/3/2021 12:29" } } diff --git a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/properties.json b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/properties.json index f0ec9849..b7398a73 100644 --- a/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/properties.json +++ b/packages/MusicNotation-Tests.package/MNLedgerLinesTests.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "", + "commentStamp" : "RAD 7/3/2021 12:24", "instvars" : [ ], "name" : "MNLedgerLinesTests", diff --git a/packages/MusicNotation-Tests.package/MNPlayerTest.class/README.md b/packages/MusicNotation-Tests.package/MNPlayerTest.class/README.md index e69de29b..9d4528b0 100644 --- a/packages/MusicNotation-Tests.package/MNPlayerTest.class/README.md +++ b/packages/MusicNotation-Tests.package/MNPlayerTest.class/README.md @@ -0,0 +1 @@ +I am a class to test the Music-Notation-Player package. \ No newline at end of file diff --git a/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testAddSounds.st b/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testAddSounds.st index 759cc213..20b2d36b 100644 --- a/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testAddSounds.st +++ b/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testAddSounds.st @@ -1,7 +1,8 @@ -as yet unclassified +tests testAddSounds - "ignore while liniting" + "Ignore while linting" | generator note pitch testWithNote testWithPitch | + generator := MNSoundGenerator new. pitch := MNPitch new octave: 4; diff --git a/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testVisitProject.st b/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testVisitProject.st index 185d9f14..9a77dcb8 100644 --- a/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testVisitProject.st +++ b/packages/MusicNotation-Tests.package/MNPlayerTest.class/instance/testVisitProject.st @@ -1,6 +1,6 @@ -as yet unclassified +tests testVisitProject - "ignore while liniting" + "Ignore while linting" | generator project part1 part2 measure1 measure2 note1 note2 pitch1 pitch2 | generator := MNSoundGenerator new. project := MNProject new. diff --git a/packages/MusicNotation-Tests.package/MNPlayerTest.class/methodProperties.json b/packages/MusicNotation-Tests.package/MNPlayerTest.class/methodProperties.json index 0afc2b74..6cf28322 100644 --- a/packages/MusicNotation-Tests.package/MNPlayerTest.class/methodProperties.json +++ b/packages/MusicNotation-Tests.package/MNPlayerTest.class/methodProperties.json @@ -2,5 +2,5 @@ "class" : { }, "instance" : { - "testAddSounds" : "LH 7/1/2021 10:34", - "testVisitProject" : "LH 7/1/2021 11:53" } } + "testAddSounds" : "RAD 7/3/2021 12:22", + "testVisitProject" : "RAD 7/3/2021 12:22" } } diff --git a/packages/MusicNotation-Tests.package/MNPlayerTest.class/properties.json b/packages/MusicNotation-Tests.package/MNPlayerTest.class/properties.json index 031c3fa4..81528627 100644 --- a/packages/MusicNotation-Tests.package/MNPlayerTest.class/properties.json +++ b/packages/MusicNotation-Tests.package/MNPlayerTest.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "", + "commentStamp" : "RAD 7/3/2021 12:25", "instvars" : [ ], "name" : "MNPlayerTest",