xowf::test_item::grading::Grading method init (protected)

 <instance of xowf::test_item::grading::Grading> init

Defined in packages/xowf/tcl/grading-procs.tcl

Provide a default, self-descriptive title

Testcases:

No testcase defined.

Source code:

if {${:title} eq ""} {
  set roundingClass [namespace tail [:info class]]
  if {$roundingClass ne "GradingRoundNone" && [string match *Round* $roundingClass]} {
    set round_string "#xowf.Rounding_scheme#: #xowf.Rounding_scheme-$roundingClass#,"
  } else {
    set round_string ""
  }
  if {$roundingClass ne "GradingRoundNone" && ${:precision} ne ""} {
    set precision "#xowf.Rounding_precision#: ${:precision},"
  } else {
    set precision ""
  }
  set :title "[namespace tail [self]]: $round_string $precision #xowf.Grade_boundaries#: ${:percentage_boundaries}"
  ns_log notice "[self] initialized with title ${:title}"
}
next

XQL Not present:

Generic, PostgreSQL, Oracle