editorpane.test

这是一个Linux下的集成开发环境

package require tcltest

tcltest::test highlight-1.0 { sn_db_create_symbol_tags } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {# global1 gv 000001.000 1.10 1.0 1.5} \
        {# global2 gv 000002.000 2.10 2.0 2.5} \
        {# function1 fu 000003.000 3.10 3.0 3.8} \
        {# global3 gv 000003.001 3.5 3.2 3.5} \
        ]

    # These change the order and set colors
    #.t.t tag configure fu -foreground green
    #.t.t tag configure gv -foreground red
    #.t.t tag raise gv fu

    sn_db_create_symbol_tags .t.t $symbols ""
    .t.t tag names
} {sel fu {function1 fu} {global1 gv} gv {global2 gv} {global3 gv}}

tcltest::test highlight-1.1 { sn_db_create_symbol_tags tag ranges } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {# global1 gv 000001.000 1.10 1.0 1.5} \
        {# global2 gv 000002.000 2.10 2.0 2.5} \
        {# function1 fu 000003.000 3.10 3.0 3.5} \
        {# global3 gv 000003.001 3.4 3.1 3.4} \
        {# function2 fu 000009.000 9.10 9.0 9.5} \
        ]

    sn_db_create_symbol_tags .t.t $symbols ""
    list [.t.t tag ranges gv] \
         [.t.t tag ranges fu]
} {{1.0 1.5 2.0 2.5 3.1 3.4} {3.0 3.5 9.0 9.5}}

tcltest::test highlight-1.2 { sn_db_create_symbol_tags tag ranges } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {# global1 gv 000001.000 1.10 1.0 1.5} \
        {# global2 gv 000002.000 2.10 2.0 2.5} \
        {# function1 fu 000003.000 3.10 3.0 3.5} \
        {# global3 gv 000003.001 3.4 3.1 3.4} \
        {# function2 fu 000009.000 9.10 9.0 9.5} \
        ]

    sn_db_create_symbol_tags .t.t $symbols ""
    list [.t.t tag ranges {global1 gv}] \
         [.t.t tag ranges {global2 gv}] \
         [.t.t tag ranges {global3 gv}] \
         [.t.t tag ranges {function1 fu}] \
         [.t.t tag ranges {function2 fu}]
} {{1.0 1.10} {2.0 2.10} {3.1 3.4} {3.0 3.10} {9.0 9.10}}

tcltest::test highlight-1.3 { sn_db_create_symbol_tags filter arg } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {# global1 gv 000001.000 1.10 1.0 1.5} \
        {# global2 gv 000002.000 2.10 2.0 2.5} \
        {# function1 fu 000003.000 3.10 3.0 3.5} \
        {# global3 gv 000003.001 3.4 3.1 3.4} \
        {# function2 fu 000009.000 9.10 9.0 9.5} \
        ]

    sn_db_create_symbol_tags .t.t $symbols "gv"
    .t.t tag names
} {sel fu {function1 fu} {function2 fu}}

tcltest::test highlight-1.4 { sn_db_create_symbol_tags insert order } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {# global3 gv 000003.001 3.4 3.1 3.4} \
        {# global1 gv 000001.000 1.10 1.0 1.5} \
        {# global2 gv 000002.000 2.10 2.0 2.5} \
        {# function1 fu 000003.000 3.10 3.0 3.5} \
        {# function2 fu 000009.000 9.10 9.0 9.5} \
        ]

    sn_db_create_symbol_tags .t.t $symbols ""
    list [.t.t tag names] \
        [.t.t tag names 3.3]
} {{sel fu {function1 fu} {function2 fu} {global3 gv} gv {global1 gv} {global2 gv}} {fu {function1 fu} {global3 gv} gv}}

tcltest::test highlight-1.5 { display order of cl, mi, and fu types } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {cl1 cl1 cl 000001.000 1.10 1.0 1.10} \
        {cl1 m1 mi 000002.000 2.10 2.0 2.10} \
        {# function1 fu 000003.000 3.10 3.0 3.10} \
        {# macro1 ma 000004.0 4.10 4.0 4.10} \
        ]

    sn_db_create_symbol_tags .t.t $symbols ""
    .t.t tag names
} {sel cl mi fu ma {cl1 cl1 cl} {cl1 m1 mi} {function1 fu} {macro1 ma}}

tcltest::test highlight-1.6 { functions appear lower in display order than variables } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set symbols [list \
        {# global1 gv 000001.000 1.10 1.0 1.5} \
        {# function1 fu 000002.000 5.0 2.5 2.8} \
        {# global1 gv 000003.000 3.5 3.0 3.5} \
        ]

    sn_db_create_symbol_tags .t.t $symbols ""
    list [.t.t tag names] \
         [.t.t tag ranges {global1 gv}] \
         [.t.t tag names 3.3]
} {{sel fu {function1 fu} {global1 gv} gv} {1.0 1.10 3.0 3.5} {{function1 fu} {global1 gv} gv}}


tcltest::test highlight-2.0 { Sn_Highlight_Text } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set highlights ""
    append highlights "1 key 1.0 1.5" \n
    append highlights "2 str 2.0 2.5" \n
    append highlights "3 rem 3.0 3.5"

    tcltest::makeFile $highlights high
    Sn_Highlight_Text .t.t high
    list [.t.t tag ranges key] \
         [.t.t tag ranges str] \
         [.t.t tag ranges rem]
} {{1.0 1.5} {2.0 2.5} {3.0 3.5}}

tcltest::test highlight-2.1 { Sn_Highlight_Text } {
    destroy .t
    toplevel .t
    set t [text .t.t]
    pack .t.t
    for {set i 0} {$i < 10} {incr i} {
        .t.t insert end "1234567890\n"
    }

    set highlights ""
    append highlights "1 \{var1 gv\} 1.0 1.5" \n
    append highlights "2 \{var2 lv\} 2.0 2.5"

    tcltest::makeFile $highlights high
    Sn_Highlight_Text .t.t high
    list [.t.t tag ranges {var1 gv}] \
         [.t.t tag ranges {var2 lv}]
} {{1.0 1.5} {2.0 2.5}}

destroy .t
::tcltest::cleanupTests
return