qemu/dtc/tests/test_kernel_dts

   1 #!/usr/bin/perl
   2
   3 my $dtc_old = "/home/jdl/FSL/dtc/dtc-old";
   4 my $dtc_new = "/home/jdl/FSL/dtc/dtc-new";
   5
   6 my $basic_options = "-b 0 -f -I dts -O dtb";
   7
   8 my $linux_dts_dir = "/usr/src/linux-2.6/arch/powerpc/boot/dts";
   9
  10 # Yeah, sure, we could, like, readdir() this instead...
  11 my @boards = (
  12               "bamboo",
  13               "ebony",
  14               "ep88xc",
  15               "holly",
  16               "kilauea",
  17               "kuroboxHD",
  18               "kuroboxHG",
  19               "lite5200",
  20               "lite5200b",
  21               "mpc7448hpc2",
  22               "mpc8272ads",
  23               "mpc8313erdb",
  24               "mpc832x_mds",
  25               "mpc832x_rdb",
  26               "mpc8349emitx",
  27               "mpc8349emitxgp",
  28               "mpc834x_mds",
  29               "mpc836x_mds",
  30               "mpc8540ads",
  31               "mpc8541cds",
  32               "mpc8544ds",
  33               "mpc8548cds",
  34               "mpc8555cds",
  35               "mpc8560ads",
  36               "mpc8568mds",
  37               "mpc8572ds",
  38               "mpc8610_hpcd",
  39               "mpc8641_hpcn",
  40               "mpc866ads",      # Feh.  Bad node references...
  41               "mpc885ads",
  42               "pq2fads",
  43               "prpmc2800",
  44               "ps3",
  45               "sequoia",
  46               "walnut",
  47 );
  48
  49 foreach my $board (@boards) {
  50         my $dts_file = "$linux_dts_dir/$board.dts";
  51
  52         my $old_dtb_file = "/tmp/$board.dtb.old";
  53         my $new_dtb_file = "/tmp/$board.dtb.new";
  54
  55         my $cmd_old = "$dtc_old $basic_options -o $old_dtb_file $dts_file";
  56         my $cmd_new = "$dtc_new $basic_options -o $new_dtb_file $dts_file";
  57         my $cmd_cmp = "cmp $old_dtb_file $new_dtb_file";
  58
  59         print "------------------------------------------------\n";
  60         print "OLD: $cmd_old\n";
  61         unlink($old_dtb_file) if (-f $old_dtb_file);
  62         system("$cmd_old >& /dev/null");
  63         my $status = $?;
  64         if ($status) {
  65                 print "    FAILED to run old DTC on $board\n";
  66         }
  67
  68         print "NEW: $cmd_new\n";
  69         unlink($new_dtb_file) if (-f $new_dtb_file);
  70         system("$cmd_new >& /dev/null");
  71         $status = $?;
  72         if ($status) {
  73                 print "    FAILED to run new DTC on $board\n";
  74         }
  75
  76         if (-f $old_dtb_file && -f $new_dtb_file) {
  77             print "CMP: $cmd_cmp\n";
  78             system($cmd_cmp);
  79             $status = $?;
  80             if ($status) {
  81                 print "    FAILED $board\n";
  82             }
  83         } else {
  84             printf "    FAILED: Missing dtb file\n";
  85         }
  86 }