Enable hole "Musical Chords"

JRaspass · JRaspass · commit 229fb252bf5d · 2021-11-02T18:35:01.000Z
diff --git a/config/holes.toml b/config/holes.toml
@@ -1149,7 +1149,6 @@ preamble = '''
 
 ['Musical Chords']
 category = 'Transform'
-experiment = -1
 links = [
     { name = 'Wikipedia', url = 'https://en.wikipedia.org/wiki/Triad_(music)' },
 ]
diff --git a/db/a-schema.sql b/db/a-schema.sql
@@ -24,11 +24,11 @@ CREATE TYPE hole AS ENUM (
     'happy-numbers-long', 'intersection', 'kolakoski-constant',
     'kolakoski-sequence', 'leap-years', 'levenshtein-distance',
     'leyland-numbers', 'look-and-say', 'lucky-tickets', 'morse-decoder',
-    'morse-encoder', 'niven-numbers', 'odious-numbers', 'ordinal-numbers',
-    'pangram-grep', 'pascals-triangle', 'pernicious-numbers', 'poker',
-    'prime-numbers', 'qr-decoder', 'quine', 'recamán',
-    'rock-paper-scissors-spock-lizard', 'roman-to-arabic', 'rule-110',
-    'seven-segment', 'sierpiński-triangle', 'smith-numbers',
+    'morse-encoder', 'musical-chords', 'niven-numbers', 'odious-numbers',
+    'ordinal-numbers', 'pangram-grep', 'pascals-triangle',
+    'pernicious-numbers', 'poker', 'prime-numbers', 'qr-decoder', 'quine',
+    'recamán', 'rock-paper-scissors-spock-lizard', 'roman-to-arabic',
+    'rule-110', 'seven-segment', 'sierpiński-triangle', 'smith-numbers',
     'spelling-numbers', 'star-wars-opening-crawl', 'sudoku', 'sudoku-v2',
     'ten-pin-bowling', 'tongue-twisters', 'united-states', 'vampire-numbers',
     'van-eck-sequence', 'λ', 'π', 'τ', 'φ', '√2', '𝑒'
diff --git a/t/cheevos.t b/t/cheevos.t
@@ -24,8 +24,10 @@ is $dbh.execute('SELECT ARRAY(SELECT trophy FROM trophies)').row, '{rtfm}',
 for $dbh.execute('SELECT unnest(enum_range(null::hole))').allrows.flat {
     my $cheevos = %cheevos{ my $i = ++$ } // '{}';
 
-    $cheevos.=subst: '}', 'interview-ready}' if $_ eq 'fizz-buzz';
-    $cheevos.=subst: '}', 'solve-quine}'     if $_ eq 'quine';
+    # Add hole-specific cheevos on the end.
+    $cheevos.=subst: '}', ',interview-ready}' if $_ eq 'fizz-buzz';
+    $cheevos.=subst: '}', ',solve-quine}'     if $_ eq 'quine';
+    $cheevos.=subst: '{,', '{';
 
     is $dbh.execute(
         "SELECT earned FROM save_solution(2, 2, 'ab', ?, 'c', 1)", $_,

Original file line number	Diff line number	Diff line change
`@@ -1149,7 +1149,6 @@ preamble = '''`
`1149`	`1149`
`1150`	`1150`	`['Musical Chords']`
`1151`	`1151`	`category = 'Transform'`
`1152`		`-experiment = -1`
`1153`	`1152`	`links = [`
`1154`	`1153`	`{ name = 'Wikipedia', url = 'https://en.wikipedia.org/wiki/Triad_(music)' },`
`1155`	`1154`	`]`