import Ġkotlin . test . assertEquals Ċ import Ġkotlin . test . Test Ċ Ċ class ĠScale Test Ġ{ ĊĊĠĠĠ Ġ// ĠTest Ġchrom atic Ġscales ĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` chrom atic Ġscale Ġwith Ġsh ar ps `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" C ", Ġ" C # ", Ġ" D ", Ġ" D # ", Ġ" E ", Ġ" F ", Ġ" F # ", Ġ" G ", Ġ" G # ", Ġ" A ", Ġ" A # ", Ġ" B ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" C "). chrom atic ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` chrom atic Ġscale Ġwith Ġfl ats `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" F ", Ġ" Gb ", Ġ" G ", Ġ" Ab ", Ġ" A ", Ġ" Bb ", Ġ" B ", Ġ" C ", Ġ" Db ", Ġ" D ", Ġ" Eb ", Ġ" E ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" F "). chrom atic ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ// ĠTest Ġscales Ġwith Ġspecified Ġintervals ĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` simple Ġmajor Ġscale `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" C ", Ġ" D ", Ġ" E ", Ġ" F ", Ġ" G ", Ġ" A ", Ġ" B ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" C "). interval (" MM m MM Mm ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` major Ġscale Ġwith Ġsh ar ps `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" G ", Ġ" A ", Ġ" B ", Ġ" C ", Ġ" D ", Ġ" E ", Ġ" F # ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" G "). interval (" MM m MM Mm ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` major Ġscale Ġwith Ġfl ats `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" F ", Ġ" G ", Ġ" A ", Ġ" Bb ", Ġ" C ", Ġ" D ", Ġ" E ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" F "). interval (" MM m MM Mm ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` minor Ġscale Ġwith Ġsh ar ps `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" F # ", Ġ" G # ", Ġ" A ", Ġ" B ", Ġ" C # ", Ġ" D ", Ġ" E ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" f # "). interval (" Mm MM m MM ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` minor Ġscale Ġwith Ġfl ats `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" Bb ", Ġ" C ", Ġ" Db ", Ġ" Eb ", Ġ" F ", Ġ" Gb ", Ġ" Ab ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" bb "). interval (" Mm MM m MM ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` d orian Ġmode `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" D ", Ġ" E ", Ġ" F ", Ġ" G ", Ġ" A ", Ġ" B ", Ġ" C ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" d "). interval (" Mm MM Mm M ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` mix oly dian Ġmode `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" Eb ", Ġ" F ", Ġ" G ", Ġ" Ab ", Ġ" Bb ", Ġ" C ", Ġ" Db ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" Eb "). interval (" MM m MM m M ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` ly dian Ġmode `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" A ", Ġ" B ", Ġ" C # ", Ġ" D # ", Ġ" E ", Ġ" F # ", Ġ" G # ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" a "). interval (" MM Mm MM m ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` ph ry g ian Ġmode `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" E ", Ġ" F ", Ġ" G ", Ġ" A ", Ġ" B ", Ġ" C ", Ġ" D ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" e "). interval (" m MM Mm MM ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` loc rian Ġmode `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" G ", Ġ" Ab ", Ġ" Bb ", Ġ" C ", Ġ" Db ", Ġ" Eb ", Ġ" F ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" g "). interval (" m MM m MMM ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` har monic Ġminor `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" D ", Ġ" E ", Ġ" F ", Ġ" G ", Ġ" A ", Ġ" Bb ", Ġ" Db ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" d "). interval (" Mm MM m Am ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġoct at onic () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" C ", Ġ" D ", Ġ" D # ", Ġ" F ", Ġ" F # ", Ġ" G # ", Ġ" A ", Ġ" B ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" C "). interval (" Mm Mm Mm Mm ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġhex at onic () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" Db ", Ġ" Eb ", Ġ" F ", Ġ" G ", Ġ" A ", Ġ" B ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" Db "). interval (" MMMM MM ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġpent at onic () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" A ", Ġ" B ", Ġ" C # ", Ġ" E ", Ġ" F # ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" A "). interval (" M MA MA ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġen ig matic () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexpected Ġ= ĠlistOf (" G ", Ġ" G # ", Ġ" B ", Ġ" C # ", Ġ" D # ", Ġ" F ", Ġ" F # ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( expected , ĠScale (" G "). interval (" m AM MM mm ")) ĊĠĠĠ Ġ} Ċ } Ċ