#!/usr/bin/env tclsh8.6

package require TclOO 0.4

::oo::class create cl1 {
  constructor {args} {
    puts stderr "cl1::constructor"
    next
  }
}

::oo::class create cl2 {
  superclass cl1

  constructor {args} {
    next
    puts stderr "cl2::constructor"
  }
}

::oo::class create cl3 {
  constructor {args} {
    puts stderr "cl3::constructor"
  }
}


::oo::class create cl4 {
  superclass cl2 cl3

  constructor {args} {
    next
    next
    puts stderr "cl4::constructor"
  }
}

puts stderr "creating obj1"
cl4 create obj1
puts stderr "creating obj2"
cl2 create obj2
