extra/cuesheet/cuesheet-tests.factor

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