extra/cuesheet/cuesheet-tests.factor

   1 USING: cuesheet tools.test ;
   2
   3 {
   4     T{ cuesheet
   5         { files
   6             {
   7                 T{ file
   8                     { name "Faithless - Live in Berlin.mp3" }
   9                     { type "MP3" }
  10                     { tracks
  11                         {
  12                             T{ track
  13                                 { number 1 }
  14                                 { datatype "AUDIO" }
  15                                 { title "Reverence" }
  16                                 { performer "Faithless" }
  17                                 { indices
  18                                     {
  19                                         T{ index
  20                                             { number 1 }
  21                                             { duration "00:00:00" }
  22                                         }
  23                                     }
  24                                 }
  25                             }
  26                             T{ track
  27                                 { number 2 }
  28                                 { datatype "AUDIO" }
  29                                 { title "She's My Baby" }
  30                                 { performer "Faithless" }
  31                                 { indices
  32                                     {
  33                                         T{ index
  34                                             { number 1 }
  35                                             { duration "06:42:00" }
  36                                         }
  37                                     }
  38                                 }
  39                             }
  40                             T{ track
  41                                 { number 3 }
  42                                 { datatype "AUDIO" }
  43                                 { title "Take the Long Way Home" }
  44                                 { performer "Faithless" }
  45                                 { indices
  46                                     {
  47                                         T{ index
  48                                             { number 1 }
  49                                             { duration "10:54:00" }
  50                                         }
  51                                     }
  52                                 }
  53                             }
  54                             T{ track
  55                                 { number 4 }
  56                                 { datatype "AUDIO" }
  57                                 { title "Insomnia" }
  58                                 { performer "Faithless" }
  59                                 { indices
  60                                     {
  61                                         T{ index
  62                                             { number 1 }
  63                                             { duration "17:04:00" }
  64                                         }
  65                                     }
  66                                 }
  67                             }
  68                             T{ track
  69                                 { number 5 }
  70                                 { datatype "AUDIO" }
  71                                 { title "Bring the Family Back" }
  72                                 { performer "Faithless" }
  73                                 { indices
  74                                     {
  75                                         T{ index
  76                                             { number 1 }
  77                                             { duration "25:44:00" }
  78                                         }
  79                                     }
  80                                 }
  81                             }
  82                             T{ track
  83                                 { number 6 }
  84                                 { datatype "AUDIO" }
  85                                 { title "Salva Mea" }
  86                                 { performer "Faithless" }
  87                                 { indices
  88                                     {
  89                                         T{ index
  90                                             { number 1 }
  91                                             { duration "30:50:00" }
  92                                         }
  93                                     }
  94                                 }
  95                             }
  96                             T{ track
  97                                 { number 7 }
  98                                 { datatype "AUDIO" }
  99                                 { title "Dirty Old Man" }
 100                                 { performer "Faithless" }
 101                                 { indices
 102                                     {
 103                                         T{ index
 104                                             { number 1 }
 105                                             { duration "38:24:00" }
 106                                         }
 107                                     }
 108                                 }
 109                             }
 110                             T{ track
 111                                 { number 8 }
 112                                 { datatype "AUDIO" }
 113                                 { title "God\"Is a DJ" }
 114                                 { performer "Faithless" }
 115                                 { indices
 116                                     {
 117                                         T{ index
 118                                             { number 1 }
 119                                             { duration "42:35:00" }
 120                                         }
 121                                     }
 122                                 }
 123                             }
 124                         }
 125                     }
 126                 }
 127             }
 128         }
 129         { remarks { "GENRE \"Electronica\"" "DATE \"1998\"" } }
 130         { performer "Faithless" }
 131         { title "Live in Berlin" }
 132     }
 133 } [
 134     "
 135      REM GENRE \"Electronica\"
 136      REM DATE \"1998\"
 137      PERFORMER \"Faithless\"
 138      TITLE \"Live in Berlin\"
 139      FILE \"Faithless - Live in Berlin.mp3\" MP3
 140        TRACK 01 AUDIO
 141          TITLE \"Reverence\"
 142          PERFORMER \"Faithless\"
 143          INDEX 01 00:00:00
 144        TRACK 02 AUDIO
 145          TITLE \"She's My Baby\"
 146          PERFORMER \"Faithless\"
 147          INDEX 01 06:42:00
 148        TRACK 03 AUDIO
 149          TITLE \"Take the Long Way Home\"
 150          PERFORMER \"Faithless\"
 151          INDEX 01 10:54:00
 152        TRACK 04 AUDIO
 153          TITLE \"Insomnia\"
 154          PERFORMER \"Faithless\"
 155          INDEX 01 17:04:00
 156        TRACK 05 AUDIO
 157          TITLE \"Bring the Family Back\"
 158          PERFORMER \"Faithless\"
 159          INDEX 01 25:44:00
 160        TRACK 06 AUDIO
 161          TITLE \"Salva Mea\"
 162          PERFORMER \"Faithless\"
 163          INDEX 01 30:50:00
 164        TRACK 07 AUDIO
 165          TITLE \"Dirty Old Man\"
 166          PERFORMER \"Faithless\"
 167          INDEX 01 38:24:00
 168        TRACK 08 AUDIO
 169          TITLE \"God\"Is a DJ\"
 170          PERFORMER \"Faithless\"
 171          INDEX 01 42:35:00
 172     " string>cuesheet
 173 ] unit-test