way to get the file name except the extension

[Kiwon Um]

Hello. I'm a newbie to elisp.

I'm wondering a built-in function or lisp codes to get the file name
except the extension from (buffer-name):
TestCode.cpp -> TestCode

Any advise? :)