| source [expr {[info exists ::env(TESTS_DIR)] ? "$env(TESTS_DIR)/interactive/ly.tcl" : "ly.tcl"}] |
| |
| set mdir $::env(YANG_MODULES_DIR) |
| set ddir $::env(TESTS_DIR)/data |
| |
| test clear_searchpath {searchpath is also deleted} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "searchpath ./" |
| ly_cmd "clear" |
| ly_cmd "searchpath" "List of the searchpaths:" -ex |
| }} |
| |
| test clear_make_implemented_once {clear --make-implemented} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "clear -i" |
| ly_cmd "add $mdir/modmust.yang" |
| ly_cmd "list" "I modmust\r.*I modleaf" |
| }} |
| |
| test clear_make_implemented_twice {clear -i -i} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "clear -i -i" |
| ly_cmd "add $mdir/modmust.yang" |
| ly_cmd "list" "I modmust\r.*I modleaf" |
| }} |
| |
| test clear_ietf_yang_library {clear --yang-library} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| # add models |
| ly_cmd "clear -y" |
| ly_cmd "list" "I ietf-yang-library" |
| }} |
| |
| test clear_ylf_list {apply --yang-library-file and check result by --list} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "clear -Y $ddir/modimp_type_ctx.xml" |
| ly_cmd "list" "I modimp-type.*i modtypedef" |
| }} |
| |
| test clear_ylf_make_implemented {apply --yang-library-file and --make-implemented} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "clear -Y $ddir/modimp_type_ctx.xml -i -i" |
| ly_cmd "list" "I modimp-type.*I modtypedef" |
| }} |
| |
| test clear_ylf_augment_ctx {Setup context by yang-library-file and augment module} { |
| -setup $ly_setup -cleanup $ly_cleanup -body { |
| ly_cmd "clear -Y $ddir/modconfig_ctx.xml" |
| ly_cmd "add $mdir/modconfig-augment.yang" |
| ly_cmd "print -f tree modconfig" "mca:alf" |
| }} |
| |
| cleanupTests |