hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added vm code to apply the attribute list encoded in the CLASS_ENTER instruction
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-10-06 00:18:24 +09:00
parent 2c89b2ae97
commit 54e33f53b9
9 changed files with 39 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
t/call-5001.err
View File

@ -104,4 +104,4 @@ core.basicAtPut "xbcdefghiklmnl" 4 k ##ERROR: exception not handled - "receiver
---
k := (core.basicAt #abcdefg 1)
core.basicAtPut #xbcdefghiklmnl 4 k ##ERROR: exception not handled - "receiver immutable - #xbcdefghiklmnl"
core.basicAtPut #xbcdefghiklmnl 4 k ##ERROR: exception not handled - "receiver immutable - xbcdefghiklmnl"

12
t/class-5001.err
View File

@ -216,13 +216,12 @@ F := (class { ##ERROR: exception not handled - "prohibited redefintion of F"
F := (class {
})
F := (class F { ##ERROR: exception not handle - "prohibited redefintion of F"
F := (class F { ##ERROR: exception not handled - "prohibited redefintion of F"
})
## TDOO: do we need to allow the above?
## TDOO: do we need to allow this?
##F := 30
##class F { ##ERROR: exception not handled - "prohibited redefintion of F"
##class F { ##E R R O R: exception not handled - "prohibited redefintion of F"
##}
@ -244,3 +243,8 @@ X11 := (class:X10 {
class X11 { ##ERROR: exception not handled - "prohibited redefintion of X11"
}
---
class String { ##ERROR: exception not handled - "incompatible redefintion of String"
}

4
t/err.sh
View File

@ -25,7 +25,7 @@ run_partfile() {
l_expected_errinfo=$(grep -n -o -E "##ERROR: .+" "$l_partfile" 2>/dev/null)
[ -z "$l_expected_errinfo" ] && {
echo "ERROR: INVALID TESTER - $l_script($l_partno) contains no ERROR information"
echo "ERROR: INVALID TESTER - $l_script(part=$l_partno,line=$l_l_partstartlineno) contains no ERROR information"
return 1
}
@ -82,7 +82,7 @@ do
done < "$script"
[ $partlines -gt 0 ] && {
run_partfile "$@" "$partno" "$artstartlineno" "$partfile" || ever_failed=1
run_partfile "$@" "$partno" "$partstartlineno" "$partfile" || ever_failed=1
}
rm -f "$partfile"